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ABSTRACT 


Visual aircraft recognition (VACR) is a critical skill for U.S. Army Short Range Air 


Defense (SHORAD) soldiers. It is the most reliable means of identifying aircraft, however 
VACR skills are not easy to teach or learn, and once learned they are highly degradable. The 
numerous training aids that exist to help units train soldiers require qualified instructors who 
are not always available. Also, the varying degrees of proficiency among soldiers make 
group training less than ideal. In an attempt to alleviate the problems in most VACR training 
programs, an intelligent tutor system has been developed to teach VACR in accordance with 
the Wings, Engine, Fuselage, Tail (WEFT) cognitive model. The Aircraft Recognition 
Tutor is a graphics based, object oriented instructional program that teaches, reviews, and 
tests VACR skills at a level appropriate to the student. The tutor adaptively coaches the 
student from the novice level, through the intermediate level, to the expert level. The tutor 
was provided to two U.S. Army Air Defense Battalions for testing and evaluation. 

The six month implementation, testing, and evaluation process demonstrated that, 
using existing technology in Computer Science and Artificial Intelligence, useful training 
tools could be developed quickly and inexpensively for deployment on existing computers 
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I. INTRODUCTION 


A. HISTORICAL PERSPECTIVE 

Fratricide. Webster defines it as the act of murdering or killing one’s own brother or 
sister or an individual having a relationship with him like that of a brother or sister. Ask a 
pilot about fratricide, though, and you are likely to get a definition such as “being shot down 
by your own forces”, and will almost certainly be told that it represents an unacceptable risk 
(Weidman, 1985, p. 17). Fratricide was a fact of life during World Warn, but occurred less 
often during the Korean War, and was almost non-existent during die Viet Nam conflict. 
Does this mean that we have learned from our mistakes, that fratricide is a tragedy of the past 
that no longer poses a threat to our air forces? Recent training exercises indicate that the 
threat remains and may in fact be greater today than any other time in history. Today’s battle 
environment is characterised by a plethora of high technology weapons that are capable of 
destroying the most sophisticated helicopters and jet fighters in the world. Combine this with 
decentralized authority for engaging aircraft and the threat seems overwhelming and 
unmanageable. 

B. THE THREAT 

Consider the following minimalized scenario: A U.S. aircraft is returning from a strike 
mission. To get back to the airbase he must pass through an Army Division. Within this 
division area, 20 Stinger missile teams are deployed, in such a manner as to have overlapping 
coverage zones. So, to return to the airbase, this aircraft will come within the engagement 
zone of at least two teams. Each of these teams consists of two men, an E-4 or E-5 team chief 
andanE-1 through E-3 missileman. Final authorization for engaging the aircraft is made by 
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the team chief and is based on visual identification of the aircraft. Assuming that an average 
team chief will correctly identify 90% of the aircraft that he sees, the pilot of the aircraft has 
an 80% chance of passing through the division area without being fired upon. The lethality 
of a Stinger missile is well documented. But now consider a more realistic scenario: the same 
aircraft is passing through the same division area, but this time must pass through a more 
likely number of Stinger teams, as well as several Vulcan gun crews, perhaps a Chaparral 
missile crew, and countless soldiers with small arms, all of which use visual identification 
as a final means of determining whether or not to engage an aircraft. The odds of the aircraft 
returning from the mission after successfully evading the enemies air defense forces are 
greatly reduced. The life of the pilot hinges upon his aircraft being correctly identified by 
each of the short range air defense fire units that he comes within range of. 

C. THE PROBLEM 

Why is there such a dependence on visual identification of aircraft? Other methods of 
idcntifiying friendly aircraft are available. Interrogation, Friend or Foe (IFF) systems exist, 
but are notoriously unreliable. Vulcan gun crews don’t even have IFF capability, and what 
about allied integrated air defense systems? Air Battle Management techniques such as safe 
corridors work well for high altitude air defense weapons that rely on integrated radar 
systems for identifying and tracking aircraft, but safe air corridors are difficult to identify 
from the ground, and aircraft move through an area faster than current chain of control 
methods can keep up with. The most reliable means of identifying aircraft is still visual 
aircraft recognition (VACR), but VACR skills are not easy to teach or to learn, and once 
learned these skills are highly degradable (Pliler, 1984, p. 14). 
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D. GOALS AND OBJECTIVES 

The Aircraft Recognition Tutor was developed in an attempt to fill a gap that exists 
in most VACR training programs. Because the tutor is designed to identify the soldiers’ 
current ability and teach at a level appropriate to that ability, it is useful for introducing 
VACR to new soldiers as well as providing refresher training to more advanced soldiers. 
After implementation, the Aircraft Recognition Tutor was provided to two U.S. Army Air 
Defense Battalions for testing and evaluation. In the course of implementing, testing, and 
evaluating the tutor (six months), it was demonstrated that, using existing technology in 
Computer Science and Artificial Intelligence, useful training tools could be developed 
quickly and inexpensively for deployment on existing computers in the field. 

In the Chapter II, we examine the training aids and methods currently being used for 
teaching visual aircraft recognition. Then, in Chapter HI, we describe and evaluate the 
WEFT cognitive model in terms of its effectiveness as a basis for training VACR. Chapter 
IV consists of a survey of the attempts of others at developing intelligent tutoring systems 
and is presented along with a description of a basic model for an intelligent tutor and 
techniques that can be used to evaluate the effectiveness of a tutor. Chapter V is dedicated 
to describing the design and implementation of the Aircraft Recognition Tutor, and Chapter 
VI offers an objective evaluation of the tutor as both a VACR training tool and an intelligent 
tutoring system. We conclude with a summary of our accomplishments, recommendations 
for future improvements and modifications to the tutor, and examples of other knowledge 
domains that the tutor could easily be adapted to teach. 
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II. AIRCRAFT RECOGNITION TRAINING 


The requirement for visual aircraft recognition (VACR) by Short Range Air Defense 

(SHORAD) soldiers is emphasized in many publications, including Q-STAG 699, JCS 
publications, and Air Defense doctrinal manuals (Pliler, 1984, p. 14). As of October 1989, 
standards require SHORAD soldiers to be able to identify visually by NATO name and 
nomenclature 50 threat and friendly aircraft with an accuracy of at least 90 percent after an 
exposure period of five seconds. The goal is 100 percent accuracy (Pliler, 1988, p. 38). This 
is a daunting task, and numerous training aids have been developed to assist in achieving this 
level of proficiency. In addition, guidelines for training programs have been suggested in 
order to ensure effective training. 

A. TRAINING TECHNIQUES AND GUIDELINES 

1. Wings, Engine, Fuselage, Tail (WEFT) 

The WEFT theory is currently believed to be the best method for teaching VACR. 
In this theory, all aircraft are composed of the same basic elements: wings to provide lift, an 
engine to provide motive power, a fuselage to carry the payload and controls, and a tail 
assembly which usually serves the purpose of controlling the direction of flight. These 
elements differ in their shape, size, number, and position. It is these basic elements that 
distinguish one aircraft type from another. Detailed parts cannot be used as the only aid to 
aircraft recognition, mainly because of the distances at which recognition should occur. The 
individual components can be isolated for descriptions and studied as separate recognition 
features. It is the composite of these features that must be learned in order to recognize and 
identify an aircraft (FM 44-30, 1986, p. 3.2). 
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2. Simplicity 

Descriptive terms must be kept simple so that the soldier’s energy is spent on 
learning VACR, not obscure specifications (Pliler, 1984, p. 15) (FM 44-30,1986, p. 4.3). 
Learning aircraft recognition is ‘difficult enough, without confronting the student with 
hundreds of odd names, curious designations, incomprehensible specifications, and strange 
descriptive terms (Wood, 1985, p. 9). 

3. Comparison 

Many aircraft have a similar appearance, and it may be difficult for a soldier to 
recognize the differences between them unless he is given an opportunity to view them side 
by side at the same aspect, heading, and climb angle. Given this, the soldier can then see 
directly the differences that distinguish the aircraft, and leam how not to confuse them 
(Pliler, 1984, p. 15) (Pliler, 1988, p. 39) (FM 44-30, 1986, p. 4.3). 

4. Controlled Image Training 

Individual components of aircraft should be isolated as separate recognition 
features for description and study. The composite of these features are then learned in order 
to identify a particular aircraft (Pliler, 1984, p. 15). 

5. Segregation 

Soldiers should be trained according to their ability. New soldiers and soldiers 
needing detailed instruction should be taught separately from more advanced soldiers who 
may only need review and testing (Pliler, 1988, p. 39). 

6. Repetition 

VACR skills are highly degradable. They are lost in a short time if reinforcement 
training is not vigorously pursued (Pliler, 1984, p. 15). Therefore, training should be 
scheduled regularly and in periods of no more than two or three hours (Pliler, 1988, p. 39). 
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B. TRAINING AIDS AND DEVICES 


Several training aids and devices have been developed in order to help units train their 
soldiers in visual aircraft recognition. These aids include posters, charts, card sets, slides, 
movies, models, and correspondence courses. The most successful of these aids will be 
discussed. 

1. Ground Observer Aircraft Recognition (GOAR) Kit 

The most widely used and reliable training aid for VACR has been the GOAR kit. 
The current version of this Lit consists of 528 35-mm photographic slides of 48 military 
aircraft. The aircraft are separated into the categories of helicopters, cargo, reconnaissance, 
fighters, bombers, and CAS (Close Air Support) (FM 44-30,1986, p. 4.7). Used correctly, 
this kit can be very effective in training soldiers in aircraft identification skills. However, 
this aid requires an experienced instructor and different training methods for soldiers with 
different skill levels. In addition, the slides tend to age and become damaged to the point that 
recognition is frequently based on the characteristics of the particular slide (eg. scratches or 
blotches on the slide) rather than the characteristics of the aircraft. This results in a less 
effective tool for training soldiers. 

2. Visual Aircraft Recognition Playing Cards 

This training aid, used similar to flash cards, is an excellent tool for training 
soldiers on maneuvers or for “hip-pocket” training where access to more sophisticated aids 
or a power source is not available (Pliler, 1986, p. 15). Again, though, without a qualified 
instructor, it is not particularly effective. 

3. VACR TEC Lessons 

In an effort to overcome the need for an instructor, TEC lessons attempt to allow 
soldiers to learn visual aircraft recognition skills at their own pace and on their own 


6 


schedules. The lessons consist of a continuous super 8-mm reel film with audio cassette 
sound. The film is projected on either a six by eight inch screen for individual training, or 
a larger movie screen for classroom presentation. The cassette tape contains the sound track 
for the training material, and both teaches and tests the student (FM 44-30,1986, p.4.6). The 
problem with this training device is that the tapes are a continuous reel, therefore random 
selection cannot be made while training or testing. The training is always presented in the 
same order. 

4. FM 44-30 

This manual is not so much a training aid or device as it is a doctrinal guide for 
the conduct of visual aircraft recognition training. It is the source for a description and 
explanation of WEFT theory and training guidelines and tips. This manual contains line 
drawings, photographs, descriptions, and specifications of the aircraft considered to be most 
relevant to SHORAD soldiers. It is the most comprehensive source of information 
concerning visual aircraft recognition. 
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HI. THE WEFT COGNITIVE MODEL 


A. DESCRIPTION OF THE WEFT MODEL 

As was discussed in Chapter n, the Wings, Engine, Fuselage, Tail (WEFT) theory is 
based on isolating the specific features that are common among all aircraft, identifying these 
features, and using the composite of these features to identify the specific aircraft being 
viewed. This section will decribe the features that are integral to the WEFT model. The 
information in this section is taken directly from U.S. Army Field Manual FM 44-30 (FM 
44-30, 1986, p. 3.2-3.10). 

1. Wings 

Features of wings useful in aircraft identification include location, shape, slant, 
taper, and wing-tip shape. 

a. Location 

The location on the fuselage at which the wing is attached is a valuable aid 
in distinquishing one aircraft type from another, particularly when viewing the aircraft from 
a nose-on or tail-on aspect. The usual wing positions for fixed-wing aircraft are High-Wing, 
Mid-Wing, and Low-Wing. 

b. Shape 

Wing shapes differ and are also valuable recognition features. They are 
classified according to their dihedral (slant), taper (diminishing width) and wing-tip shape. 
A wing may contain any combination of slant, taper, or wing-tip shape. 
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c. Slant 

The vertical angle of the wing with respect to a horizontal line drawn 
through the fuselage is called wing dihedral. For recognition purposes dihedral will be 
referred to as slant. 

d. Taper 

Aircraft may have the leading, trailing, or both edges of the wing tapered, 
or the wing may be untapered. 

e. Tip Shape 

Wing-tip shapes are determined by the manner in which the leading and 
trailing edges of a wing meet. Wing-tip shapes are classified as Square, Pointed, Rounded, 
Blunt, or Curved. 

2. Engine 

Engine types, numbers and locations, and air intake shape and location play a 
large role in the identification of a particular aircraft. 

a. Propellor Aircraft 

Generally, engines which drive propellors are located on or within the 
fuselage, usually the nose for single-engine aircraft, and within the wing or on the leading 
edge of the wing for multiengine aircraft. 

b. Jet Aircraft 

Generally, single-engine jet aircraft have the engine mounted inside the 
rear section of the fuselage. Multiengine jet aircraft have their engines located along the sides 
of the fuselage or under the wings. 
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c. Intake Location 


Examples of jet air intake locations for single and multiengine aircraft 
include in the wing root, outboard on the wings, beneath the wings, in the nose, in the sides 
of the fuselage, and beneath the nose. 

3. Fuselage 

The body of an aircraft is made up of three separate and distinct sections. They 
are the nose, mid, and rear sections. The canopy/cabin is also discussed when describing a 
fuselage. 

Nose Section 

The front or forward section of the aircraft fuselage is called the nose. Nose 
sections are classified by their shapes: pointed, blunt, or rounded. 

b. Midsection 

The center section of an aircraft fuselage is known as the midsection. This 
section normally provides the space for crew compartments and internal stores. Midsections 
are classified according to their shapes: slender, bulging, tubular, or thick. 

c. Rear Section 

The rear of the fuselage where the tail assembly is attached is known as the 
rear section. Rear sections are classified by their shape: upswept, blunt, or tapered. 

d. Cockpit , Cabin 

The cockpit or cabin is the compartment in an aircraft that accommodates 
the pilot and/or other persons. It is usually covered by a transparant canopy or glassed-in 
enclosure, and may be bubble, stepped, or flush. 
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4. Tail 


Tail recognition features on aircraft consist of the tail flat (horizontal piece) and 
the tail fin (vertical piece). 

a. Tail Flat Position 

The position of the stabilizer in relation to the fin or the fuselage is an aid 
to recognition. The Tail Flat may be low, mid, or high mounted on either the tail fin or the 
fuselage. 

b. Tail Flat Slant 

The vertical angle of the tail flat, with respect to a horizontal line drawn 
through the fuselage, is referred to as slant, either positive or negative. 

c. Tail Flat Shape 

Tail flats usually consist of only one element and are classified like wings; 
for example, tail flat shape and tail flat tip shape. 

d. Fin Shape 

There are many fin shapes, including unequally tapered, equally tapered, 
back tapered, swept-back, round, and oval. In addition, the fin tip shape can be accounted 
for. 

e. Number of Fins 

There are three combinations of fins usually seen on aircraft: single, 

double, or triple. 

B. EVALUATION OF THE WEFT MODEL 

The WEFT model was first introduced in October of 1983 (Pliler, 1984, p. 16). Since 
that time it has undergone rigorous evaluation by U.S. Army Air Defense units, and has stood 
the test of time. In personal observation of VACR training, it was noted that those soldiers 
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who reliably recognized aircraft did so based on the WEFT characteristics of the aircraft. In 
fact, some of the “experts” could identify an aircraft based solely on a verbal WEFT 
description of it, without a visual image. Soldiers that had trouble identifying aircraft were 
in one of two categories: either they were new soldiers, and had not yet mastered the concepts 
of the WEFT theory, or they had learned to identify aircraft based on some other less reliable 
means of identification. Some of the other methods used by soldiers to identify aircraft 
include reliance on aircraft heading and speed, aircraft markings, and ordnance types. Each 
of these is an unreliable feature. 

Criticism of the WEFT method has arisen however. Jane’s World Aircraft Recognition 
Handbook describes mnemonic aircraft-recognition systems like WEFT as “completely use¬ 
less, as recognition depends on the aircraft’s total appearance and there is usually little 
enough time to look for individual features, let alone reciting sets of letters” (Wood, 1985, 
p. 5 - 6). However, it is because of the limited time available to recognize an aircraft that the 
discipline of the WEFT model pays off. Rather than attempting to search for a match of an 
overall image of the aircraft to all of those possible, the WEFT method prunes the search 
space by categorizing aircraft based on reliable, easily recognizable features. In addition, not 
all features are necessary to single out a particular aircraft from all others (indeed, it is rare 
that all features will be visible). In fact, even in Jane’s World Aircraft Recognition 
Handbook, the student is advised to “work in stages, gradually acquiring knowledge and 
storing it. Like people’s faces and figures, every aircraft and helicopter has its own 
characteristics. It may have one engine and straight wings; four engines and swept wings; 
a fat fuselage; a triangular wing; a tail plane on top of the fin; or, in the case of a helicopter, 
one or two rotors” (Wood, 1985, p. 9). Aircraft in this manual are separated into chapters 
based on “the main characteristics of each class of aircraft, so that the user can find his way 
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immediately to the right chapter after catching a fleeting glimpse of, say, a delta shape in the 
sky” (Wood, 1985, p. 6). This categorization is analogous to the WEFT categorization, with 
the exception that WEFT does not give a predetermined preference to one category over 
another. This allows for a higher probabitity that an aircraft will be correctly identified given 
an incomplete description or an obscured image. 
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IV. SURVEY OF INTELLIGENT TUTORING SYSTEMS 


A. INTRODUCTION 

Intelligent tutors are computer programs that use Artificial Intelligence (AI) tech¬ 
niques to help a person learn. The most important part of developing an Intelligent tutor is 
choosing an appropriate way of representing the knowledge to be taught. Another major 
concern is how to model the student’s current understanding of a topic or problem. 
Intelligent tutors use inferencing mechanisms capable of reasoning from one item of 
knowledge to another. Therefore, expert systems are an integral part of nearly all Intelligent 
Tutors (Harmon, 1987, p. 170). 

Intelligent tutors are programs that lie at the intersection of three disciplines, Computer 
Science (particulary AI), Cognitive Psychology, and Education and Training (Kearsley, 
1987, p. 4). Because of the different goals of researchers in each of these areas. Intelligent 
Tutor Systems vary greatly in their implementation methodology and overall effectiveness. 
Individuals with interest and expertise in all three disciplines are rare. Current theories of 
learning are inadequate and tend to cause controversy among cognitive psychologists 
(Bower & Hilgard, 1981, p. 17). So, in spite of a well developed computer science 
technology base, Intelligent Tutor Systems do not exist in large numbers and are not being 
used regularly by schools. Another major obstacle to the implementation and deployment 
of Intelligent Tutor Systems is the bureaucratic complexity of the institutions they are 
designed for (Bower & Hilgard, 1981, p. 575). 
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B. DESIGNS 


Most of the current examples of Intelligent Tutor Systems can be classified by one of 
five paradigms (Kearsley, 1987, p. 6). Because the Aircraft Recognition Tutor attempts to 
capture an existing, proven strategy for teaching visual aircraft recognition skills, we fit the 
tutor to the appropriate design paradigm rather than choosing a preferred design as the 
starting point for the development of the system. The Aircraft Recognition Tutor uses the 
Coach paradigm, and because both the domain knowledge and the tutorial knowledge are 
well structured, this paradigm provides the best performance. In general, however, the Mi¬ 
croworld design is the most flexible and gives the most control to the student. This design 
lends itself well to unstructured knowledge domains and teaching situations where the 
specific information to be taught to the student is not critical. With the Microworld 
paradigm, and given a student workbook or study guide, a student can learn about the topics 
that are of immediate interest to him. This increases the student’s motivation to leam. The 
Microworld paradigm is particulary suitable for tutor systems that attempt to cover a broad 
range of subjects in a single system, or for a group of smaller tutor systems all under the 
contol of a single integration system. 

1. Mixed Initiative Tutors 

Mixed Initiative Tutors are the oldest style of intelligent tutor systems. In this 
method, the program engages the student in a two-way conversation and attempts to teach 
the student via the Socratic style of guided discovery. In this teaching style, the tutor first 
attempts to diagnose the student’s misconceptions and errors, and then presents instruction 
that will help the student to recognize the error themselves (Park, Perez, & Seidel, 1987, 
p. 18). Examples of this approach include the SCHOLAR and SOPHIE programs. 
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The SCHOLAR program was a frame-based tutor which could teach students 
about the geography of South America (Goldstein, 1982, p. 53). The tutor was capable of 
either drilling the student in a question and answer style, or accepting questions from the 
student. One of the major criticisms of SCHOLAR was that it encoded only a limited depth 
of information about its domain, and made no attempt at providing the student with multiple 
levels of detail (Goldstein, 1982, p. 53). 

SOPHIE was a simulation tutor that taught electronic circuit diagnosis. This was, 
and remains, one of the best attempts at modeling a natural language tutoring discourse 
(Woolf, 1988, p. 10). The natural language parser was able to skip over “noise” words and 
looked for semantic classes rather than syntactic entities (Sleeman& Hendley, 1982,p. 111). 
Unfortunately, students do not always organize and talk about knowledge in a way that 
reflects the way the developer of the tutor anticipated. Because of this, the tutor must look 
beyond the words that the student uses and determine the true meaning of the student's 
answers and queries. Failure at this results in the tutor being unable to guide the student, or 
properly model the student's understanding of the topic being taught (Woolf, 1987, p. 241). 
True natural language understanding eludes us even today, so most recent efforts attempt to 
communicate with the student through some other type of interface. 

2. Diagnostic Tutors 

Diagnostic Tutors try to identify the misconceptions a student may have in 
solving a problem by using a catalog of common problems. The BUGGY tutor was designed 
to teach basic mathematical problem solving skills (Park, Perez, & Seidel, 1987,p. 19). This 
program demonstrated that there exists a striking uniformity in the errors made by students 
in a discipline that is systematic in nature (Matz, 1987, p. 47). The BUGGY tutor models 
common mathematical errors, and when a student makes a mistake, attempts to identify the 
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mistake by matching the procedure that the student used in solving the problem with its 
knowledge base of “buggy” procedures. Once the match is made, the tutor can explain not 
only the student’s error, but teach in a way that will help the student understand the problem 
and its solution better. 

Another example of a diagnostic tutor is PROUST. PROUST is an automatic 
debugger for Pascal programs. It uses a knowledge base of programming errors in order to 
detect and report bugs in a student's program. In order to do this however, PROUST must 
have some understanding of what the program is supposed to do. When PROUST fails to 
understand a program's goals, its ability to recognize bugs deteriorates. In fact, the 
developers of PROUST are not yet sufficiently satisfied with its performance to make it 
generally available to their students (Johnson & Soloway, 1987, p. 66). 

3. Microworlds 

Microworlds involve developing a computational tool that allows a student to 
explore a problem domain. The most famous example of this paradigm is the LOGO 
programming enviroimient. LOGO was developed by Seymour Papert of M.I.T. as a tool 
for teaching mathematics and geometry to children. LOGO combines computational theory 
and artificial intelligence with Piaget's theory of learning. In this theory, people learn by 
naturally and spontaneously interacting with their environment (Papert. 1980, p. 156). With 
this. LOGO takes an opposite approach to learning than most Intelligent Tutor Systems. 
Where, in most cases, the computer is being used to teach or “program” the student, in 
LOGO, the student “programs the computer and, in doing so, both acquires a sense of 
mastery over a piece of the most modem and powerful technology and establishes an intimate 
contact with some of the deepest ideas from science, from mathematics, and from the art of 
intellectual model building” (Papert. 1980, p. 5). Papert believes that, using the microworld 
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paradigm, students not only leam about the tutor domain, but learn about the process of 
learning itself. The lack of discipline enforced by the tutor is typical of programs that use 
the microworld concept; the student is left on his own to explore and discover the 
relationships and truths about the knowledge domain. Inherent in this paradigm, then, is the 
need for some type of supervision and assistance other than the tutor. 

4. Articulate Expert Systems 

Articulate Expert Systems are expert systems that can explain their decisions. 
Most of these systems do not include an instructional component, and any expert system that 
includes the ability to explain how it reasons could be used as a limited tutor. A complete 
system that exemplifies this paradigm is GUIDON, an adaptation of the MYCIN expert 
system for medical diagnosis. The adaptation revealed that although MYCIN has an 
explanation facility, the explanations were “narrowly conceived” (Clancey, 1987, p. 201). 
Specifically, the expert system could not explain why a particular rule was correct, and it 
could not explain the strategy behind the design of its rule structure (Clancey, 1987, p. 198). 
To develop GUIDON, the expert knowledge not only had to be captured, but how the expert 
uses and remembers the knowledge also needed be known. With this additional information, 
MYCIN’s rules could be made more explicit, and then be related to GUIDON s teaching of 
the heuristics used by the expert system. 

5. Coaches 

Coaches observe the student 1 s performance in some problem solving activity and 
provide advice or guidance that will help the student perform better. WUMPUS is a maze 
exploration game that exercises basic skills in logic and probability. Several tutors 
(WUSOR-I, Wumpus Advisor) have been developed for the WUMPUS game (Goldstein, 
1982, p. 54) (Kearsley, 1987, p .5). Each of these use the coach paradigm. WUSOR-I uses 
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a genetic graph to model the students performance in the game. The student progresses 
through the graph as he proceeds through the maze. Based on the student’s path and current 
location in the genetic graph, a specific tutoring topic for instructing the student is chosen, 
and with this, a means of explaining the topic is chosen based on the predecessors to the 
student's position in the graph (Goldstein, 1982, p. 64). In this way, the tutor can provide 
variations on explanations based on its perceived judgement of the student’s needs. Thus, 
a coach tutor attempts to know (1) when to interrupt the student’s problem solving activity, 
and (2) what to say once it has been interrupted (Burton & Brown, 1982, p. 80). 
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Figure 4.1 Architecture of an Intelligent Tutor System (Harmon, 1987, p. 171) 


C. COMPONENTS 

A typical model for an Intelligent Tutoring System, shown in Figure 4.1, includes four 
components, each of which can be thought of as an expert system in itself (Harmon, 1987, 
p. 171). 

1. The Domain Knowledge System 

The Domain Knowledge System is the knowledge base for all of the expertise and 
information about the subject matter to be taught. Techniques for representing the 
knowledge vary greatly, and choosing the appropriate representation method is crucial to the 
effectiveness of the tutor. 

2. The Tutorial Knowledge System 

The Tutorial Knowledge System contains the theory of the teaching method that 
is used. Traditionally, computer based instruction relied on the concepts of B. F. Skinner 
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and other behavioral psychologists who developed the theory of programmed instruction 
(Hannon, 1987, p. 165). Skinner proposed a set of qualities that could be found in any good 
programmed instruction: (1) A good tutor begins where the student is, and does not insist 
on moving beyond what the student can comprehend, (2) A good tutor moves at a rate that 
is consistent with the ability of a student to learn, (3) A good tutor does not permit false 
answers to remain uncorrected, and (4) A good tutor does not lecture; instead, by his hints 
and questioning he helps the student to find and state answers for himself (Bower & Hilgard, 
1981, p. 566). According to Skinner's model of a teaching machine, a tutor system first 
diagnoses a student to determine the skills and knowledge of the student, then presents the 
instruction in a carefully programmed way so that each step can be mastered by the student 
and leads him to the next step, providing immediate feedback on how well the student has 
mastered the material. A student that fails to respond adequately is provided corrective 
feedback or the program branches to another style of instruction. At the end of each step the 
program tests the student on his overall mastery of the material, and maintains a complete 
record of the student’s performance for the entirety of the material covered. A system such 
as this thereby provides all of the functions of assessing, teaching, and evaluating a student 
in an objective, standardized manner (Iano, 1987, p. 266). 

3. The Student Model 

The Student Model is a database that is created during the operation of the 
program that reflects what the student knows and does not know about the subject matter. 
Two main approaches are common in modeling the student’s knowledge: (1) the tutor can 
keep track of what the student has not yet shown a knowledge of, or (2) the tutor can track 
what the student has demonstrated a lack of knowledge of. In an attempt to build a more 
sophisticated Student Model that could more accurately reflect the state of the student’s 
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understanding, some tutor systems combine both of these approaches within the Student 
Model. 

4. The Integration System 

The heart of the system, though, is the Integration System, which uses heuristic 
rules to combine the three other systems into an interface that is presented to the user, and 
controls the flow of the program, which is usually non-deterministic. A wide array of 
different techniques have been used to present the information to the student, including 
attempts at natural language interfaces and graphical interfaces. The control of the program 
has also varied from strict programmed control by the tutor to an exploratory approach where 
the student has complete control over the flow of the instruction. 
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Figure 4.2 Basic Tutorial Pattern (Godfrey & Sterling, 1982, p. 49) 


D. BEHAVIOR 

Typical behavior for an Intelligent Tutoring System is shown in Figure 4.2 (Godfrey 
& Sterling, 1982, p. 49). 

To begin, the program displays a rule, example, or question and prompts for a response 
from the user. If the user responds correctly, it is easy enough to handle, the program simply 
offers the student positive feedback and continues on with another question. However, two 
possibilities exist in the event that the student responds with an incorrect answer. The easiest 
to handle is an expected incorrect response. This is an incorrect response that is commonly 
made by students in answering the particular question, and in this case, the programmer has 
coded in a canned remediation sequence. After the student recieves the remediation, the 
program continues with another question. The other case, when the student returns an 
unanticipated response to the question, is the hard part, and this is where AI comes in. The 
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program responds by questioning the student in an attempt to identify where the trouble is. 
Based on the students responses, the tutor either determines that some canned remediation 
sequence would help the student, or that some combination of remediation is called for. After 
the remediation is given, the student is again questioned and when the tutor is satisfied, it 
continues on with the main Row of the program. In each case, the student model is updated 
to reflect the student’s understanding. A history of related wrong answers may suggest that 
an adaptation of the tutoring style or content in needed. Obviously, this is the hard part in 
creating an Intelligent Tutor, and is why some of the best examples have come from 
individuals or teams that have backgrounds in all three of the disciplines that make up this 
field. This model is a simplistic one but it is good as a general model. 

E. EVALUATION CRITERIA 

Intelligent Tutor Systems can be evaluated based on how well they accomplish four 
main activities: modeling of knowledge and reasoning, communication, cognitive process¬ 
ing, and tutoring (Woolf, 1988, p. 34). 

1. Modeling of Knowledge and Reasoning 

A good tutor will have represented the domain knowledge of the subject to be 
taught in such a way that it can reason about that knowledge. It may at first seem that any 
expert system should be able to do this, but as Clancey found while implementing the Guidon 
tutor for the Mycin expert system, reasoning about knowledge with the goal to teach is much 
different from reasoning about knowledge with the goal to diagnose or provide solutions 
(Clancey, 1987, p. 196). A good tutor will not only be able to reason about and explain the 
knowledge, but also understand the strategy behind the knowledge representation well 
enough to provide analogies, multiple views, and levels of explanation (Clancey, 1987, 

p. 201). 
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2. Communication 

Tutor systems should take full advantage of the hardware capabilities for which 
they were implemented. With the advanced graphics capabilities of today’s computer 
systems, good tutors should include some combination of simulations, animations, icons, 
pop-up windows, and pull-down menus in an attempt to provide an intuitive interface to the 
user (Woolf, 1988, p. 6). The student’s time should be spent learning the domain being 
presented instead of learning how to interact with the tutor. With the current capabilities of 
independent speech recognition and synthesis systems, consideration should be given to 
including this type of interface for a tutor (Gallant, 1989, p. 2). To be most effective though, 
speech understanding should be included and this technology is not yet mature. Perhaps once 
we can reliably understand speed, as well as recognize it, the Mixed-Initiative tutor 
paradigm will once again prevail. 

3. Cognitive Processing 

Cognitive Processing is concerned with modeling a methodology for teaching the 
domain knowledge, and modeling how a student leams within that domain. This is probably 
the most difficult part of creating a good tutor (Woolf, 1988, p. 7). In order to effectively 
teach a student, we must know or be able to diagnose whether the student understands the 
materia] being presented, and if not, what instructional style and content would help the 
student understand. A good tutor will have a robust and flexible teaching style, so that it can 
adapt to individual student motivations and capabilities. It will also have a dynamic student 
model that can reason about the student’s knowledge or understanding about the material. 
Naturally, the more complex and fragmented the knowledge domain, the more difficult 
effective cognitive processing becomes. 
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4. Tutoring 

Cognitive processing leads into tutoring. Once we identify the student’s 
understanding of the material, tutoring takes over. Tutoring is the specific instructional style 
used by the system at any given time. This includes praising, remediating, interrupting, and 
presenting examples to the student (Woolf, 1988, p. 7). The best tutors attempt to respond 
to the ideosyncrasies of a student in an effort to motivate the student to continue to use the 
tutor. It is apparant that each of the four activities of a tutor system interact with each other 
and may either enhance or detract from the effectiveness of the other activities. For example, 
the tutoring activity’s goal of motivating the student is greatly enhanced by a user-friendly 
communication medium, but degraded if the communication medium turns the user away 
from the system. 
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V. DESCRIPTION OF THE AIRCRAFT RECOGNITION TUTOR 


The Aircraft Recognition Tutor was developed using Turbo Pascal v5.5 which also 

provides Object Oriented Programming support. Each of the major components of the tutor 
exists as an object in the program, and tr^y contain other smaller objects as variables. 
Because the tutor was developed in the Object Oriented Programming paradigm, modularity 
is well defined. This allows changes or improvements to be made to the individual compo¬ 
nents of the tutor without the need to modify the remainder of the program. 

A. DOMAIN KNOWLEDGE BASE 

The domain knowledge is captured in a multi-media database consisting of aircraft 
images stored in binary format and WEFT descriptions stored in text (ASCII) format. Each 
aircraft exists in the program as a composite object, thereby encapsulating both the binary 
and textual information about the aircraft, as well as the procedures and functions that are 
used to operate on that information, into a single data structure. For example, an F-16 
Fighting Falcon is an instance of the aircraft object class. All aircraft objects consist of a 
record containing all of the WEFT information about the aircraft, and procedures for 
initializing and displaying the object. In addition, the aircraft class inherits from the screen 
object class, and as a type of screen object, an aircraft definition also includes a pointer to the 
graphic image of the aircraft (this pointer is created in the initialization procedure), and a 
procedure to hide the object (removes the graphic image from the screen). 

Although it would be possible to load each of the aircraft objects into main memory 
during program initialization, the objects are stored on disk and only swapped into main 


27 




memory when needed. Having each of the aircrafts objects defined in the system requires 
a tremendous allocation of heap space, and since the program has the capability of learning 
new aircraft definitions, the possibility of causing a heap overflow exists. Therefore, by 
keeping the aircraft definitions on disk, with only one or two in main memory at any given 
time, we minimize the memory requirement of the program at the cost of access speed to the 
definitions. Even with this memory swapping, however, response time to the student is quite 
acceptable. 

The aircraft images that are included in the system were scanned in from FM 44-30 
using the PCX file format. These images were then brought into a paint program, changing 
the resolution of the image to match that used by the tutor (CGA 640x200, two color), 
resized, and cleaned up. The images remain in the PCX format, and therefor could be easily 
modified using any PCX compatible paint program. 

In addition, the tutor includes a utility routine that allows new aircraft to be defined or 
existing aircraft definitions to be modified. This utility consists of a simple drawing program 
for creating the aircraft image combined with a menu selection for identifying the WEFT 
features for the aircraft. The new aircraft image is saved in the PCX format to maintain 
compatibility with the knowledge base, and thus could also be edited in a paint program. The 
utility saves the new or updated definition as an aircraft object on the disk. Another utility 
included within the program allows the aircraft that will be taught by the tutor to be selected 
from among all those currently defined and stored on the disk. With this utility, the tutor can 
be configured to teach all the aircraft defined, or any subset of those aircraft. 

B. STUDENT MODEL 

The student model for the system consists of two components, a persistent part and a 
transient part. The persistent part of the Student Model consists of default student models 
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for each level, which are configurable by the Aircraft Recognition Tutor Administrator. The 
default model for the Novice Level initially consists of all of the WEFT features that are 
contained in the system. It is not expected that this default model will be changed. The 
default model for the Intermediate and Expert Levels consist of all of the specific aircraft to 
be taught by the system. The default initially consists of 44 different aircraft (with three 
views of each), but can be selected from the available number of aircraft that have been 
defined for the system . This model represents what the student needs to be taught, and when 
the student demonstrates the knowledge of an item in this model, it is removed. 

In addition, the persistent part of the student model tracks student performance 
information, as well as the student’s current Mode or Level. This information includes the 
number of items presented to the student, the number of correct responses, the number of 
anticipated incorrect responses, and the number of unanticipated incorrect responses. The 
transient part of the student model keeps track of student misconceptions. Both parts are 
updated dynamically during the tutoring session, the difference being that when a session is 
ended the persistent part of the student model is written back to disk and will be used by the 
next session, while the transient part is deleted at the end of a session. 

Each student that uses the system will have an individual student model. When a new 
student is encountered (ie. a student model does not exist for the student), the student is 
diagnosed by the system to determine the appropriate level and mode at which the student 
should enter the system. The student is then assigned a default model corresponding to the 
level, and begins a tutor session at the determined level and mode. The tutor system includes 
utilities that allow the student model database to be accessed. These utilities include the 
ability to delete students from the database or retrieve student administrative and perform¬ 
ance information. 
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B. TUTORIAL KNOWLEDGE BASE 


The Tutor system in the Aircraft Recognition Tutor consists of three tutoringHes: 
Teach, Review, and Test, and three levels: Novice, Intermediate, and Expert. Tutoring 
sessions exist for each combination of mode and level, with the exception that no sessions 
exist for Novice-Test and Expert-Teach. The assumptions here are that when a student has 
successfully completed the Novice-Review session, he is ready for more advanced instruc¬ 
tion and should not be delayed (the Novice level is elementary enough that it is easy to learn 
and we do not want to risk boredom by keeping a student at this level for an inordinate amount 
of time), and that a student that has successfully demonstrated his expertise in identifying 
aircraft at the Intermediate Level need not be retaught these same aircraft (albeit from a 
different point of view) in the Expert Level. 

1. Novice Level 

The Novice Level keys in on WEFT (Wings, Engine, Fuselage, Tail) theory, and 
provides the student with the background necessary to consistently identify aircraft using a 
validated cognitive model. Each WEFT category is broken down into separate subcategories 
which are taught in a logical sequence by displaying a generic aircraft and modifying a 
particular feature of the aircraft and identifying this feature to the student. Review consists 
of randomly, but completely, displaying all of the features introduced in the Teach mode. 
The student is then expected to identify these features, and the tutor takes an appropriate 
course of action based on the student’s response. 

2. Intermediate Level 

The Intermediate Level teaches the WEFT characteristics of each individual 
aircraft used in the current configuration of the system by presenting a visual image of the 
aircraft and identifying the WEFT features that distinguish that particular aircraft from 
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another. Similar aircraft are presented along with the aircraft currently being taught to allow 
the student to firmly grasp the differences between the two aircraft. The focus of this level 
is to associate in the student’s mind the visual image of the aircraft with its corresponding 
WEFT description. Review is accomplished by randomly but completely presenting each 
aircraft and allowing the student to identify the aircraft by name and nomenclature, and 
taking action based on the student’s response. Testing consists of presenting the student with 
each aircraft in the default model, allowing the student to identify the aircraft, and 
maintaining a record of the students performance. 

3. Expert Level 

The Expert Level reviews and tests the student based on WEFT characteristics of 
the aircraft alone; no visual image of the aircraft is presented. 

4. Tutorial Strategy 

During a review, three possible conditions can exist when a student attempts to 
identify a WEFT feature of aircraft: (1) the student may respond correctly, (2) the student 
may respond with an anticipated but incorrect answer, and (3) the student may respond with 
an unanticipated, incorrect answer. Each of these conditions is handled differently by the 
tutor system. 

In case (1), the tutor system will recognize the student for the correct answer, 
remove the WEFT feature or aircraft from the persistent student model, and present another 
item from the model to the student. 

In case (2), the student is presented with both the feature or aircraft being 
reviewed and the feature or aircraft that the student mistook it for. Both are identified to the 
student, and the system performs a comparison of the two for the student so that the 
differences are reinforced in the student’s mind. The feature or aircraft is not removed from 
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the student model, thereby requiring the student to demonstrate identification of it again 
some time later in the session. The tutor then continues with another item from the student 
model. 

In case (3), the feature or aircraft is identified to the student, and the student is 
asked to identify specific features of the feature or aircraft. When all of the features have been 
either correctly identified, or the tutor system has corrected the student, that feature or 
aircraft is added to the persistent student model and a link is created in the transient student 
model, storing the students misconception, so that if the student makes the same mistake 
again, it will be handled as in (2) above. The tutor session then continues as in (1) and (2). 

As one can see, the student model may contain duplicate items, thus the student 
may have to identify a feature or aircraft several times before the system is satisfied with the 
student’s knowledge of that item. A student has the ability to interrupt the tutor session at 
any time. In this way the student may end the tutor session, get context sensitive help, or 
request that the tutor present a specific WEFT feature or aircraft. By providing the latter 
facility, we allow' the student to have some control over the flow of the instruction in the 
program. After the student has been presented the information that he requested, control is 
returned to the tutor which picks up where it was interrupted. 

5. Student Evaluation 

Student performance is evaluated when one of two events occur. First, if the 
student model is empty, then the student has completed a session. The student’s perform¬ 
ance will indicate whether the student will move to the next Mode or Level, remain at the 
current Mode or Level, or digress to the previous Mode or Level, based on heuristics included 
in the system. Second, the student model is limited to twice the number of items contained 
in the default model. If the student completely fills the student model to capacity, then the 
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current session will be ended, and the student will begin a new session at the previous Mode 
or Level. When the student moves to a new Mode or Level, both the persistent and transient 
portions of the student model are reinitialized. If the student interrupts a session prior to 
completion, the persistent model will be saved to disk, but the transient model will be lost. 
A student reentering the system will be taught using the persistent model that existed when 
the last session was terminated, thereby providing continuity of instruction. 

D. INTEGRATION SYSTEM 

The integration system consists of the user interface and a control program that acts to 
direct the actions of the other three modules, including interaction between these modules. 
The interface for the tutor is graphically oriented and was intentionally kept basic and 
intuitive. It consists of several distinct objects: help screens to provide context sensitive help 
information to the student, dialog boxes to communicate with the student, and menus to 
accept information and selections from the student. “Hot” keys allow the student to easily 
quit what they are doing, request help, or interrupt the tutor. In addition, the tutor system 
includes a one or tw o player game mode in order to encourage usage of the program. The 
one player game allows the student to compete against the computer, while the two player 
game allows two students to compete against each other in a “Jeopardy” style game of aircraft 
recognition. An aircraft is presented to the players, and the first to recognize it presses their 
“button”. The player is then given a chance to identify the aircraft in a menu that will appear. 
A limited amount of time is allowed for the player to recognize the aircraft. The game 
consists of 25 aircraft presentations. Points are awarded for a correct response, and deducted 
for an incorrect response. After all 25 aircraft have been shown, the player with the highest 
score is the winner. Performance in the game mode of the program is not tracked in the 
student model. 
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E. IMPLEMENTATION DETAILS 

As mentioned previously, the Aircraft Recognition Tutor was developed using the 
Object Oriented Programming (OOP) paradigm. The benefits of OOP are the addition of 
methods (procedures and functions) to abstract data types, inheritance, encapsulation, 
modularity, and code reusability. 

The tutor system consists of three separate programs: an install program, an unstall 
program, and the tutor program itself. Figure 5.1 shows the hierarchical structure of the 
Aircraft Recognition Tutor programs and units. 
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Figure 5.1 Hierarchical Structure of the Aircraft Recognition Tutor 


A. The Install Program 

This program allows the user to install th e Aircraft Recognition T utor on his hard 


disk drive simply by typing a single command and switching diskettes when prompted. In 
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addition, the program checks that the user’s system meets all of the requirements for running 
the tutor; for example, the install program verifies that a CGA compatible graphics adapter 
is present, checks for and creates a subdirectory for the tutor, insures adequate disk space is 
available, etc. This program will only allow one installation of the tutor system. 

B. The Unstall Program 

The tutor system is designed to be installed and used on a single computer. The 
system is copy protected to insure that incomplete or corrupted versions of the program are 
not distributed. In order to allow movement of the tutor system from one computer to 
another, the Unstall program was created. This program removes the program from the 
computer that it was installed on and replaces the hidden copy protection file back on the 
original floppy diskette. After running the Unstall program, the tutor system may be moved 
to another computer using the Install program. 

C. The Tutor Program 

The Tutor itself is comprised of a main program and several units used by the 
main program. These units consist of either object definitions or logically grouped functions 
and procedures. 

1. The Main Program 

The main program initializes the user’s computer to be compatible with the 
tutor system. In addition, the main program presents the main menu to the user and passes 
control to the other units based on the user’s input. 

2. The Screens Unit 

This unit defines the Screen object class. There are no instances of this 
class; it exists simply to allow other classes to inherit methods and variables that they have 
in common. A Screen object consists of variables to track the location and visibility status 
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of the object, a file containing the graphic image of the object, a pointer to the object, and 
procedures to initialize, show, hide, and kill the object. 

3. The Aircraft Unit 

This unit defines the Aircraft object class. This class is a subclass of the 
Screen class and inherits all of the variables and methods defined for Screen objects. In 
addition, Aircraft objects consist of a record that contains all of the WEFT information about 
the aircraft, and redefine the procedures and methods inherited from the Screen class. 

4. The Dialogs Unit 

This unit defines the Dialog object class. A Dialog object is an interaction 
window that appears on the screen, either giving textual information to the user. o. providing 
a location for the user to enter information. Dialog objects also inherit from the Screen class. 
This class redefines the Show and Hide procedures, and includes an additional pointer which 
is used to save the part of the screen image that is overwritten by the Dialog object so that 
it may be restored when the Dialog object is removed. 

5. The Menus Unit 

Menu objects are a new class of objects; they do not inherit from any other 
class. A Menu object consists of variables for the menu title, top item, selected item, 
highlighted item, number of selections, an array of menu selections, a file containing the 
menu information, a procedure to initialize and display the menu, and a function to get the 
menu selection from the user. 

6. The Student Unit 

This unit defines the Student Model object, which contains all of the infor¬ 
mation known about each individual student. An individual Student Model consists of a 
student name, current mode and level, the latest test score, the persistent and transient parts 
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of the model, and the number of aircraft shown and missed during the current mode and level. 
In addition, procedures to get, update, save, and kill the student model, and functions to get 
and add entries to the model are defined. 

7. The Tutor Unit 

This unit consists of a set of procedures and functions that capture the 
WEFT teaching strategy. These include procedures to diagnose the student, teach and review 
the student at the Novice Level, teach, review, and test the student at the Intermediate Level, 
review and test the student at the Expert Level, and evaluate the student. In addition, 
functions that display individual WEFT features of an aircraft and compare WEFT features 
of two aircraft are defined. 

8. The Game Unit 

This unit consists of procedures that control the one and two player game 

modes. 

9. The Help Unit 

This unit defines the Help object class. Help objects inherit from the Screen 
class. This class redefines the Show and Hide procedures from the Screen class and also adds 
an additional pointer to save the screen that the Help object will overwrite. The procedure 
to get help is not defined in the Help class definition, but exists separately within this unit. 
This is because only one Help object can exist at one time, and defining the get help procedure 
outside the class definition allows it to be generic for each of the Help objects. 

10. The Utility Unit 

This unit consists of a set of procedures that allow the administrator of the 
tutor system to customize it and perform some database management activities. These 
include procedures to allow the administrator to select the aircraft that will be taught by the 


system from among those defined, to add to or modify the aircraft that are defined in the 
system, to retrieve performance and administrative information about an individual student, 
and to delete a student from the system. 
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VI. EVALUATION OF THE AIRCRAFT RECOGNITION TUTOR 

The Aircraft Recognition Tutor con be evaluated in several ways. First, we will look 
at the tutor in terms of its effectiveness as a training aid for visual aircraft recognition. For 
this we will use the training guidelines described in Chapter II as a basis of evaluation 1 . Then 
we will evaluate the Aircraft Recognition Tutor in terms of the evaluation criteria for 
intelligent tutoring systems that were described in Chapter TV 2 . 

A. AS A VACR TRAINING AID 

1. Wings, Engine, Fuselage, Tail (WEFT) 

The Aircraft Recognition Tutor uses the WEFT theory as a basis for the 
instruction presented to the student. The student is first taught to recognize the basic 
elements of WEFT theory (wings, engine, fuselage, and tail) based on the differences in their 
shape, size, number, and position. The student is then taught to distinguish one aircraft type 
from another based on a composite of these WEFT elements. This instruction systematically 
presents the information to the student, but at the same time uses both the domain knowledge 
and the student model to tailor the tutoring session to the student. 

2. Simplicity 

The terms used to describe the WEFT features are not technical terms, but the 
common “layman” terms that most people associate with the different features. In addition, 
uniformity of naming conventions and descriptions is maintained throughout the system. 


'See pages 4-5. 
2 See pages 24-26. 
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3. Comparison 

Daring a review session, if the student mistakes an aircraft with one that is similar 
in appearance based on its WEFT features, the tutor displays both aircraft side by side so that 
the student may see directly the differences that distinguish the two aircraft, and leam how 
not to confuse them. The tutor then points out to the student the specific WEFT features of 
the two aircraft that differ. In addition, the student is given the ability to interrupt the tutor 
at any time and request that a specific aircraft be shown and described. In this way, the 
student can perform a comparison of any aircraft defined in the system. This ability to 
actively interact with the tutor is important to the teaching strategy. The student has a high 
degree of control over the instruction, if this is desired. On the other hand, the tutor is capable 
of independently presenting the entire lesson to the student. 

4. Controlled Image Training 

As each aircraft is presented during a teaching session, the individual components 
of aircraft are presented as separate recognition features for study. The composite of these 
features are then learned in order to identify a particular aircraft. During a review session, 
if the student mistakes the aircraft presented for one that does not resemble it, the tutor will 
ask the student to identify the separate recognition features that distinguish that view of the 
aircraft, thus reinforcing controlled image training. 

5. Segregation 

The tutor allows students to be trained according to their ability. Since the tutor 
first diagnoses a student's ability, and places him at a level in the tutor appropriate to that 
ability, new students and students needing detailed instruction are taught at a different level 
than more advanced students who may only need review and testing. In addition, since the 
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tutor is designed to provide individual instruction, and maintains a student model for each 
student, the system tailors the training to each individual. 

6 . Repetition 

Since the tutor operates on a personal computer, students may study at their own 
convenience, as often as necessary or desired, and in periods that suit the individual. Also, 
the game mode of the tutor was designed to encourage frequent use of the program. 

B. AS AN INTELLIGENT TUTOR 

1. Modeling of Knowledge and Reasoning 

Because the Aircraft Recognition Tutor teaches a very specific knowledge 
domain and relies on a well developed model for reasoning about that knowledge, and 
because the knowledge is represented in object oriented style, both the knowledge and ability 
to reason about it are encapsulated in a concise, coherent manner. Not only does this allow 
the tutor to reason about the knowledge (eg. the tutor can compare two aircraft and decide 
whether they “appear” similar enough to expect confusion by the student), but the modularity 
of the knowledge base makes additions or changes to it simple and straight forward. 

2. Communication 

Although the Aircraft Recognition Tutor takes full advantage of the hardware 
capability that it was implemented for, this remains one of the major weaknesses of the 
system. Since the tutor was constrained to operate on existing U.S. Army computer 
hardware, and this hardware has limited capabilities in terms of graphics resolution and 
interface support, the possibilities for improvement of the interface are tremendous. The 
addition of mouse support would be a major improvement, allowing a much more natural 
method of selecting from the menus. Using higher resolution images of the aircraft would 
give the student a more realistic impression of the aircraft. It should be noted, however, that 
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the limitations in this area were known in advance of the development of the system and are 
based solely on the hardware constraints of the computers it was designed for. Additional 
interface support in the software would not be difficult to provide. 5 

3. Cognitive Processing 

Students are modeled by not only what they do not seem to understand, but also 
by that which they have not yet demonstrated any knowledge. This is possible because of 
the well defined knowledge domain taught by the tutor. Since the number of aircraft and 
associated features taught by the system is finite, we can start a student out with a default 
model based on their performance during the diagnostic phase, and then add and delete from 
this model as we learn more specifically what the student does and does not know. 

4. Tutoring 

The instructional style used by die system varies according to the current level 
and mode of the student. 4 A student progresses through these levels and modes, and based 
on the student’s performance is allowed to advance to higher levels and modes, remain at a 
current level and mode, or revert to a previous level or mode. 


’See pages 44-45 for a description of the types of improvement that could be made 
to the interface. 

4 See pages 30-32. 
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VII. CONCLUSION 


A. ACCOMPLISHMENTS 

Over a period of six months, we have designed, developed, tested, and e. aluated the 
Aircraft Recognition Tutor, an intelligent tutor system for visual aircraft recognition. The 
system was developed using Object Oriented programming techniques, and therefore is 
modular and easy to maintain. We have demonstrated that, using existing technology in 
Computer Science and Artificial Intelligence, a useful training system could be developed 
quickly and inexpensively for use on existing computer hardware in the field. We have 
faithfully captured the WEFT cognitive model for visual aircraft recognition instruction 
within a friendly medium. By distinguishing between what the student has not demonstrated 
a knowledge of and what he has demonstrated a lack of knowledge about, we have developed 
a student model that, unlike many others, accurately represents the current knowledge of the 
student The system is effective both as a formal training system and as an informal "game" 
device. Acceptance of the system among soldiers has been outstanding. Since the US. Army 
has deployed Zenith desktop and laptop personal computers at the battalion level, and in 
some cases at the company or battery level, failure to take full advantage of this equipment 
for training purposes would be unforgivable. The possibilities for the development of 
training applications is limited only by the imagination. 

B. FUTURE IMPROVEMENT AND MODIFICATIONS 

Based on the recommendations from the field evaluation, several modifications could 
be implemented to improve the Aircraft Recognition Tutor. 
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1. Improvements to the Interface 

Of most obvious need of improvement is the graphics resolution of the system. 
Currently the tutor uses the CGA 640x200 two color mode. EGA graphics offer the 
capability for a resolution of 640x350 pixels in 16 colors. This mode would allow a much 
more attractive interface, but the aircraft images, although better, would still need to be line 
drawings in order to show details clearly. VGA and Super VGA graphics modes (640x480 
and 800x600 pixels, respectively, each with at least 16 colors) would allow the images used 
by the tutor to be scanned from actual photographs of the aircraft. This would be the ideal 
resolution for images that are scanned into and stored by the program as bitmaps. However, 
other, perhaps better options exist, given a higher screen resolution. Next in desirability 
would be to use an interactive digital video system to present actual filmed images of the 
aircraft. The video system would be controlled by the tutor system, and would replace the 
scanned images currently used. This would have the added benefit of greatly reducing the 
amount of disk space required by the tutor. Finally, the aircraft could be represented as three 
dimensional models, and manipulated through homogeneous transformations. This would 
allow the aircraft to be scaled, translated, and rotated, and then displayed in any of an infinite 
number of aspects, and would also require much less disk space than the images currently 
used. Combined with this could be a terrain and cloud database that allow the aircraft to be 
displayed superimposed or overlay ed with a more realistic environment. This would provide 
the ability to partially obscure the aircraft, something that is likely to occur in reality. 

Another major improvement would be the integration of mouse support with the 
interface. In fact, this is a very simple improvement that has been made to one version of the 
tutor already. Unfortunately, since the hardware that the tutor was designed for does not 
include a mouse, this feature was left out of the final product. Thought was also given to 
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using a speech recognition system as the primary interface between the student and the tutor, 
but the rarity of these systems in the field, as well as the lack of compatibility among them, 
prevented this from being reasonable. 

2. Improvements to the Tutoring Strategy 

Additional characteristics could be tracked by the student model, in order to 
provide a more accurate understanding of the student’s knowledge of the domain. For 
example, once the student is in the intermediate mode, the tutor assumes that the student has 
mastered the individual WEFT characteristics, and no longer tracks the student’s perform¬ 
ance in this area. However, since the student is sometimes asked to identify the specific 
WEFT features of an aircraft that he was unable to identify correctly, the ability and perhaps 
the need to track this information exists. Currently, if a student reverts to a previous level 
or mode, he is assigned the default model for that level or mode. By tracking characteristics 
of all of the levels and modes at all times, the tutor could better teach the student at any level 
or mode. 

Additional teaching styles could be implemented. This would allow the tutor to 
teach a student in a different manner if it appears that the student is having trouble with the 
current teaching style. The tutor currently teaches in a different style for each level and 
mode, but within a particular level and mode, only one teaching strategy is used. If the 
student fails to respond to this strategy, the tutor will revert them to a previous level or mode 
for additional preparation before returning to the current level or mode. 

C. POSSIBLE ADAPTATIONS 

Several training subjects are directly comparable to VACR and therefore represent an 
opportunity for adaptation of the Aircraft Recognition Tutor. Helicopter recognition is 
taught in the same manner as fixed-wing aircraft recognition, and the tutor could be modified 
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easily to teach this subject by defining the additional WEFT characteristics common among 
helicopters and defining the helicopter objects. This could be done by adding onto the 
existing knowledge domain, or by substituting directly a new knowledge domain for 
helicopters. Armored vehicle recognition and ship/submarine recognition represent other 
subjects that the tutor could teach with an adjustment of the tutorial strategy and defining the 
appropriate knowledge domain objects. 
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APPENDIX A - CODE 


{ 

Aircraft Recognition Tutor 
program by Larry W. Campbell 
1990 

No warranties whatsoever are provided with this program. Use at own risk. 

This program may be used or modified under the following conditions: 

1. Any modified program will include the author’s name in the program. 

2. A copy of the modified program will be provided to the author. 

Send comments, suggestions, bug reports, or modifications to: 

CPT Larry W. Campbell 
SMC 2269 

Naval Postgraduate School 
Monterey, CA 93940 

E-Mail at campbell@cs.nps.navy.mil 

} 

program ART; 

uses CRT, Graph, Screens, Dialogs, Menus, Tutor, Game, Utility, Student, Help; 
type 

name = string[20]; 
var 

TempScreen, BinoScreen : Screen; 

Help Item : HelpScreen; 

Main Menu : Menu; 

HelpMenu : Menu; 

GraphDriver, GraphMode, ErrorCode, ChoiceNum : Integer; 

Choice : name; 

Ch : char; 

F: text; 

FileName : string; 

procedure HallofFame; 
var FameName : name; 

X,Y : integer; 
begin 
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T empScreen. Init (‘halff ame. scr’); 

T empScreen .Show(O.O); 

Assign(F,'Hal!Fame.rec'); 

Reset(F); 

SetColor(l); 

X :« 50; 

Y := 30; 

while (not eof(F)) and (X < 600) do 
begin 

Readln(F, FameName); 
OutTextXYfX.Y.FameName); 

Y := Y + 10; 
if Y - 200 then 
begin 

X > X + 200; 

Y := 30; 
end; 

end; 

Ch := Read Key; 

SetColo^O); 

ClearDevice; 

TempScreen.Kill; 

Close(F); 

end; 

procedure RunTutor; 
begin {RunTutor} 

BinoScreen.Show(0,0); 

TutorSession; 

BinoScreen. Hide; 
end; {RunTutor} 

procedure RunGame; 
begin {RunGame} 

BinoScreen. Show(0,0); 

PlayGame; 

BinoScreen.Hide; 
end; {RunGame} 

procedure GetHelp; 
begin {GetHelp} 

Choice := HelpMenu.GetChoice; 
while (Choice <> "EXIT HELPI’) and (Choice <> ‘null’) do 
begin 

H Choice = ‘ABOUT HELP!’ then 
Helpltem.lnit(‘help.hlp’) 
else if Choice = ‘TUTOR HELP!’ then 
Helpltem.lnit(‘tutor.hlp’) 
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else if Choice = ‘GAME HELP!' then 
Helpltem. Init('game.hlp') 
else if Choice = ‘SETUP/UTILITY HELP!’ then 
Helpltem.lnit(‘setup.hlp’); 

Help Item.Show(0,0); 

Ch := Read Key; 

HelpItem.Hide; 

Helpltem.Kill; 

GotoXY(l.l); 

Choice := HelpMenu.GetChoice; 
end; 

end; {GetHelp} 
begin {Main Program} 

{Initialize Graphics Adapter to CGA 640x200 2-color mode} 
GraphDriver := CGA; 

GraphMode := CGAHi; 
lnitGraph(GraphDriver, GraphMode,"); 

SetBkColor(Green); 

{Load the graphics and data into memory} 

T empScreen. Init ('initial .scr'); 

BinoScreen. Init(‘main .scr’); 

MainMenu. Init(’Main.mnu'); 

HelpMenu. lnit(‘Help. mnu'); 

{Display the Initial Title Screen} 

TempScreen Show(0,0); 

Ch := ReadKey; 

TempScreen.Hide; 

TempScreen.Kill; 

HallofFame; 

{Display the Initial Menu Screen and Get a Response} 
StudentModel.Mode ;= "; 

Choice := MainMenu.GetChoice; 
while (Choice <> ‘EXIT’) and (Choice <> ‘null’) do 
begin 

if Choice = ‘TUTOR SESSION’ then RunTutor 
else il Choice = ‘GAME’ then RunGame 
else if Choice = ’HELP!' then GetHelp 
else if Choice = ‘SETUP’ then SetUp; 

GotoXY(1,1); 

StudentModel.Mode := "; 

Choice := MainMenu.GetChoice; 
end; 

{That’s all folks} 

BinoScreen.Kill; 

CloseGraph; 
end. {Main Program} 
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unit Screens; 


interface 
uses Graph; 
type 

Screen = object 
X,Y : integer; 

IsVisible : boolean; 

F: file; 

MemSize : word; 

P : pointer; 

constructor lnit(FileName : string); 
procedure Show(XLoc, YLoc : integer); 
procedure Hide; 
destructor Kill; 

end; 

implementation 

constructor Screen.lnit(FileName : string); 
begin 

IsVisible := false; 

Assign(F, FileName);{Prepare the file} 

Reset(F, 1 );{for a read operation.} 

MemSize := FileSize(F);{Determine memory needed} 

GetMem(P, MemSize) ;{and allocate the memory on the heap.} 
BlockRead(F, P A , MemSize);{Read in the graphic pic file} 
Close(F);{and close the file.) 
end; 

procedure Screen.Show(XLoc, YLoc : integer); 
begin 

if not IsVisible then 
begin 

X := XLoc; 

Y := YLoc; 

Putlmage(X,Y,P A ,CopyPut);{Draw the graphics on the screen.} 
IsVisible := true; 
end; 

end; 

procedure Screen.Hide; 
begin 

if IsVisible then 
begin 

Putlmage(X,Y,P A ,XorPut);(Turn all pixels off.) 
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IsVisible := false; 
end; 

end; 

destructor Screen.Kill; 
begin 

FreeMem(P, MemSize);{Free the heap memory.} 
end; 

end. 
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unit Aircfts; 
interface 

uses Graph,PCX_TP,Screens; 
type 

name = string(20]; 

ACData = record 
AircraftName : name; 

ExampleOf; name; 

Examplelnfo : name; 

Wings : array [1 ..4] of name; 

Wingslnfo : array [1.4] of name; 

Engine : array [1 ..2] of name; 

Enginelnfo : array [1..2] of name; 

Fuslag ; array (1 ..4] of name; 

Fuslaglnfo : array [1 ..4] of name; 

Tail: array [1. 5] of name; 

Taillnfo : array [1 ..5] of name; 
end; 

Aircraft = object(Screen) 
vptr: longint; 

FI : text; 

ACInfo : ACData; 
constructor lnit(ACName : name); 
procedure Show(XLoc,YLoc : integer); 
procedure Hide; 
procedure Kill; 
end; 
var 

retcode : integer; 
implementation 

constructor Aircraft.lnit(ACName : name); 
var 

Counter: integer; 
begin 

IsVisible := false; 

retcode := pcxCreateVirtual(pcxCMM,@vptr,pcxCGA_6,250,110); 
if (retcode = pcxSuccess) then 
retcode > pcxFileVirtual(Concat(ACName,’.pcx’),vptr); 
Assign(F 1, Concat(ACName, ’. dat’)); 

Reset(FI); 

Readln(F1 .ACInfo.AircraftName); 
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Readln(F1 .ACInfo.ExampleOf); 

Readln(F1, ACInfo.Examplelnfo); 

for Counter := 1 to 4 do 
begin 

Readln(F1 ,ACInfo.Wings[Counter]); 

Readln(F1,ACInfo.Wingslnfo[Counter]); 

end; 

for Counter1 to 2 do 
begin 

Read1n(F1,ACInfo.Engine[Counter]); 

Read1n(F1, ACInfo. Engine lnfo[Counter]); 
end; 

for Counter > 1 to 4 do 
begin 

Readln(F1,ACInfo.Fuslag[CounterJ); 

Readln(F1 .ACInfo.Fuslaglnfo(CounterJ); 

end; 

for Counter := 1 to 5 do 
begin 

Readln(F1 ,ACInfo.Tail[Counter]); 

Readln(F1 ,ACInfo.Taillnfo{Counter]); 
end; 

Close(FI); 

end; 

procedure Aircraft.Show(XLoc, YLoc : integer); 

begin 

if not IsVisible then 
begin 

retcode := pcxSefDisplay(pcxCGA_6); 

X := XLoc; 

Y := YLoc; 

retcode := PCXPutlmage(vptr,pcxXOR,X,Y,0); 

IsVisible := true; 
end, 

end; 

procedure Aircraft.Hide; 

begin 

if IsVisible then 
begin 

retcode := pcxSetDisplay(pcxCGA_6); 

retcode PCXPutlmage(vptr,pcxXOR,X,Y,0); 

IsVisible :«false; 
end; 

end; 

procedure Aircraft.Kill; 
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begin 

Is Visible > false; 

retcode := pcxDestroyVirtual{vptr); 
end; 
end. 
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unit Dialogs; 
interlace 


uses Graph, Screens; 


Dialog = object(Screen) 

OldP : pointer; 

procedure Show(XLoc, YLoc : integer); 
procedure Hide; 
end; 

implementation 

procedure Dialog.Show(XLoc,YLoc : integer); 
begin 

if not IsVisible then 
begin 

X := XLoc; 

Y YLoc; 

GetMem(OldP, MemSize);{Save the old bitmap) 
Getlmage(X,Y,X+200,Y+50,OldP A ); 
Putlmage(X,Y,P / ',CopyPut);{and draw the new bitmap.) 
IsVisible := true; 
end; 

end; 

procedure Dialog.Hide; 
begin 

if IsVisible then 
begin 

Putlmage(X,Y,OldP A ,CopyPut);{Put the old bitmap back) 
FreeMem(OldP, MemSize);(and free the heap memory.) 
IsVisible :* false; 
end; 

end; 

end. 
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unit Menus; 


interface 

uses CRT, Graph, Help; 
type 

name *= string{201; 

Menu = object 

MenuTitle : string; 

X,Y, Color,Topltem,Selectedltem,HighLightedltem : integer; 
NumSelections: integer; 

MenuSelection : arrayjl ..150] of name; 

F : text; 

constructor lnit(FiieName : name); 
function GetChoice : name; 
end; 

var 

LastSelection : integer; 
implementation 
const 

MaxSelections = 10; 


var 

Ch : char; 

Counter: integer, 

constructor Menu.lni!(FileName: name); 
begin 

Highlightedltem := 1; 

Selected Item :■ 1; 

Topltem := 1; 

Counter := 0; 

Assign(F.FileName); 

Reset(F); 

Readln(F,MenuTitle), 

Readln(F.X); 

Readln(F.Y); 

Readln(F,Color); 

while (not eof(F)) and (Counter < 150)do 
begin 

Counter := Counter + 1; 

Readln (F, MenuSelectionJCounter]); 
end; 
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NumSelections := Counter; 
Close(F); 


function Menu.GetChoice : name; 

procedure ShowMenu(Selection : integer); 
begin 

SetColor(Color); 

SetLineStyle(SolidLn,0 ) ThickWidth); 

SetWriteMode(Copy Put); 

SetT ext Justify (CenterT ext,CenterT ext); 

OutT extX Y(X, Y, MenuTitle); 

Counter .= 0; 

while (Counter + Selection <* NumSelections) and 
(Counter + Selection < Selection + MaxSelections) do 
begin 

OutTextXY(X,Counter*8+Y+15,MenuSelection[Counter + Selection]); 
Counter > Counter + 1; 
end; 

if (Selection > 1) and (Selection <■ NumSelections -10) then 
OutTextXY(X,Y+100 I ’PgUp/PgDn’) 
else if Selection > 1 then 
OutTextXY(X,Y+100,’PgUp’) 
else if Selection <= NumSelections -10 then 
OutTextXY(X,Y+100,’PgDn’); 

end; 

procedure KillMenu; 
begin 

if Color <> 0 then 
SetColor(O); 

SetWriteMode(CopyPut); 

Line(X-50,Y-3,X+50,Y-3); 

Line(X-50,Y,X+50,Y); 

Line(X-50,Y+3,X+50,Y+3); 
for Counter := 1 to 10 do 
begin 

Line(X-85,Counter*8+Y+3,X+85,Counter*8+Y+3); 

Line(X-85,Counter*8+Y+6,X+85,Counter*8+Y+6); 

Line(X-85,Counter*8+Y+9,X+85,Counter*8+Y+9); 

end; 

Line(X-35,Y+97,X+35,Y+97); 

Line(X-35, Y+100,X+35,Y+100); 

Line(X-35, Y+103.X+35, Y+103); 
end; 

procedure Highlight(Newltem : integer); 
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begin 

SetWriteMode(XorPut); 

SetColor(l); 

Line(X-85,Highlightedltem*8+Y+3,X+85,Highlightedltem*8+Y+3); 
Line(X-85,Highlightedltem*8+Y+6,X+85,Highlightedltem*8+Y+6); 
Line(X-85.Highlightedltem*8+Y+9,X+85,Highlightedltem*8+Y+9); 
if HighLightedttem <> Newltem then 
begin 

Highlighted Item Newltem; 

Line(X-85,NewHem*8+Y+3,X+85,Newltem*8+Y+3); 

Line(X-85,Newltem*8+Y+6,X+85,Newltem*8+Y+6); 

Line(X-85,Newltem‘8+Y+9,X+85,Newltem*8+Y+9); 

end; 

end; 

procedure PageUp; 
begin 

if Topltem > MaxSelections then 
begin 
Kill Menu; 

Selectedftem :* (Selectedltem -10) - 
(Highlightedltem -1); 

Topltem := Topltem -10; 

Highlightedltem :«1; 

ShowMenu(T opltem); 

Highlight(Highlightedltem); 

end; 

end; 

procedure PageDown; 
begin 

if Topltem + MaxSelections <- NumSelections then 
begin 
KillMenu; 

Selectedltem :« (Selectedltem + 10) - 
(Highlightedltem -1); 

Topltem ;* Topltem + 10; 

Highlightedltem := 1; 

ShowMenu(T opltem); 

Highlight(Highlightedltem); 
end; 

end; 

procedure MoveUp; 
begin 

if Highlightedltem > 1 then 
begin 

Highlight(Highlightedltem -1); 
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Selectedltem := Selected Item -1; 
end; 

end; 

procedure MoveDown; 
begin 

if (Highlightedltem < MaxSelections) 
and (Selectedltem < NumSelections) then 
begin 

Highlight(Highlightedltem + 1); 
Selectedltem :« Selectedltem + 1; 
end; 

end; 

procedure Getlnput; 
begin 

Ch := ReadKey; 

Case Ch of 
‘h': GetHelp; 

chr(80),chr(50): MoveDown; 
chr(72),chr(56) : Movellp; 
chr(81),chr(51): PageDown; 
chr(73),chr(57) : PageUp; 
end; 
end; 


begin 

ShowMenu(l); 

Highlights); 
repeat 
Getlnput 

until (Ch = #13) or (Ch = #27); 
if Ch « #27 then 
GetChoice := ‘null’ 
else 

GetChoice := MenuSelection[Selectedltem]; 
LastSelection := Selectedltem; 

KillMenu; 

Topltem := 1; 

Selectedltem := 1; 

Highlightedltem := 1; 
end; 

end. 
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unit Student; 


interface 

type 

name = string [201; 

Model = object 

StudentName, Mode, Level; name; 

TestScore : integer; 

NumShown, NumMissed: integer; 

ACArray : array [1 ..150] of name; 

MissedArray : array [1 ..150] of name; 
function Get: boolean; 

procedure Update(StuName : name;NewMode : name; NewLevel: name; NewScore : integer); 
procedure Save; 

function GetEntry(MaxNum : integer): integer; 
function AddEntry(ACName : name; MaxNum integer): boolean; 
procedure Kill; 
end; 

var 

StudentModel: Model; 


implementation 

uses DOS, CRT, Graph, Dialogs, 
var 

FileName : name; 

Deleted : boolean; 

F : text; 

S : pathstr; 

Ch : char; 

Counter: integer; 

DialogScreen : Dialog; 

function Model.GetEntry(MaxNum : integer): integer; 
begin 

Randomize; 

Counter := 1; 

while (StudentModel.ACArray[Counter] = ") and (Counter <= MaxNum) do 
Counter := Counter + 1; 
if Counter < MaxNum then 
begin 

Counter > Random(MaxNum -1); 
while StudentModel.ACArray[Counter + 1] = " do 
Counter > Random(MaxNum); 
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GetEntry > Counter + 1; 
end 

else GetEntry := 0; 
end; 

function Model.AddEntry(ACName : name; MaxNum : integer): boolean; 
begin 

Counter :•= 1; 

while (StudentModel.MissedArraytCounter] <> ") and (Counter <« MaxNum+1) do 
Counter := Counter + 1; 
if Counter <= MaxNum then 
begin 

StudentModel.MissedArray{Counter] := ACName; 

AddEntry > true; 
end 

else AddEntry;«false; 
end; 

function Model.Get. boolean; 
const 

ALPHA = [ , A’..’Z7a , .. , z’l; 

NUM = (’O’..’9’]; 
begin (GetStudentModel) 

Deleted := false; 

FileName > "; 

Counter := 1; 

DialogScreen.lnit(’Model.dlg’); 

DialogScreen.Show(220,25); 
white Counter <= 6 do 
begin 

Ch > ReadKey; 

if (Counter = 1) and (Ch in ALPHA) then 
begin 

OutTextXY(290+10*Counter,68,Ch); 

FileName :* Concat(FileName.Ch); 

Counter :*= Counter + 1; 
end 

else if (Counter > 1) and (Counter < 6) and (Ch in NUM) then 
begin 

OutT extX Y (290+10‘Counter, 68, Ch); 

FileName ;= Concat(FileName,Ch); 

Counter := Counter + 1; 
end 

else if (Ch - #8) and (Counter > 1) then 
begin 

SetColor(l); 

Line(275+10*Counter,64,285+10* Counter,64); 

Line(275+10*Counter,67,285+10* Counter,67); 


61 


Line(275+10*Counter,70,285+10*Counter,70); 

Counter > Counter -1; 

FileName := Copy(FileName,1,Counter-1); 

SetColor(O); 

end 

else if (Counter = 6) and (Ch = #13) then 
Counter := Counter + 1 
else 
begin 

Sound(440); 

Delay(IOO); 

NoSound; 

end; 

end; 

Dialog Screen.Hide; 

DialogScreen.Kill; 

S := FSearch(V,Concat(FileName,'.mdr)); 
if S = *’ then 
begin 

Get := false; 

Exit; 

end 

else 

begin 

Assign(F,Concat(FileName,’.mdP)); 

Reset(F); 

Readln(F,StudentModel.StudentName); 

Readln(F.StudentModel.Mode); 

Readln(F,StudentModel. Level); 

Readln (F, StudentModel. T estScore); 

Readln (F, StudentModel. NumSho wn); 

Readln(F.StudentModel.NumMissed); 
for Counter1 to 150 do 

Readln(F, StudentModel. ACArrayJCounter]); 
for Counter := 1 to 150 do 

Readln(F,StudentModel.MissedArray[Counter]); 

Close(F); 

end; 

Get := true; 

end; {GetStudentModel} 

procedure Model.Update(StuName : name; NewMode : name; NewLevel : name; NewScore : 
integer); 
begin (Update) 
if NewLevel « ‘Novice’ then 
Assign(F,’Novice.def) 
else 

Assign(F,’lntermed.def’); 
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Reset(F); 

Readln(F,StudentModel.StudentName); 

Readln(F,StudentModel.Mode); 

Readln(F, StudentModel. Level); 
Readln(F.StudentModel.TestScore); 

Readln(F, StudentModel. NumShown); 
Readln(F,StudentModel.NumMissed); 
for Counter := 1 to 150 do 

Readln(F,StudentModel. ACArray{Counter]); 
for Counter := 1 to 150 do 

Readln(F, StudentModel. MissedArray [Counter)); 

Close(F); 

StudentModel.StudentName := StuName; 

StudentModel.Mode := NewMode; 

StudentModel.Level := NewLevel; 

StudentModel.TestScore := NewScore; 
end; {Update} 

procedure Modei.Save; 
begin 

if not Deleted then 
begin 

Assign(F,Concat(FileName,'.mdr)); 

Rewrite(F); 

Writeln(F,StudentModel.StudentName); 

Writeln(F,StudentModel. Mode); 
Writeln(F,StudentModel.Level); 

Writeln (F,StudentModel .T estScore); 

Writeln(F,StudentModel.NumShown); 
Writeln(F,StudentModeI.NumMissed); 
for Counter ;= 1 to 150 do 

Writeln(F,StudentModel. ACArray[Counter]); 
for Counter .= 1 to 150 do 

Writeln(F,StudentModel.MissedArray[Counter]); 

Close(F); 

end; 

end; 

procedure Model.Kill; 
begin 

Exec('\COMMAND.COM',Concat(7C del '.FileName.'.mdl’)); 
Deleted := true, 
end; 

end. 
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unit Tutor; 


interface 

procedure TutorSession; 
implementation 

uses CRT, Graph, Student, Aircfts, Dialogs, Menus, Help; 
type 

name = string[20]; 
var 

Counterl, Counter2, Counter3, MaxNum, ChoiceNum, Score : integer; 

Comparison : real; 

Ch : char; 

Left AC, RightAC : Aircraft; 

DialogScreen : array [1..5] of Dialog; 

WEFTMenu : Menu; 

StuName, Choice, FourthCh : name; 

CorrectAnswer, CloseAnswer, Done : boolean; 

procedure ShowFeature(Feature : name); 
begin {ShowFeature} 
if Feature <> " then 
begin 

DialogScreen[4].lnit(Concat(Feature,’.dlg')); 

DialogScreen[4].Show(10,30); 

Ch := ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[4]. Hide; 

DialogScreen[4].Kill; 

end; 

end; {ShowFeature) 

function CompareAircraft. real; 
begin {CompareAircraft) 

Comparison := 0; 

Counter3 := 0; 

for Counter2 := 1 to 4 do 

if (LeftAC.ACInfo.Wings(Counter2) <> ") and 
(RightAC.ACInfo.Wings[Counter2) <> *’) then 
if LeftAC.ACInfo.Wings[Counter2] = RightAC.ACInfo.Wings[Counter2] then 
begin 
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Comparison > Comparison + 1; 
lnc(Counter3); 
end 

else lnc(Counter3); 
for Counter2 := 1 to 2 do 
if (LeftAC.ACInfo.Engine[Counter2) <> *') and 
(RightAC.ACInfo.Engine[Counter2j <> ") then 
if LeftAC.ACInfo.Engine[Counter2] = RightAC.ACInfo.Engine[Counter2] then 
begin 

Comparison := Comparison + t; 
lnc(Counter3); 
end 

else lnc(Counter3); 
for Counter2 > 1 to 4 do 
if (LeftAC.ACInfo.Fuslag(Counter2] <> ") and 
(RightAC,ACInfo.Fuslag[Counter2j <> *’) then 
if LeftAC.ACInfo.Fuslag[Counter2] = RightAC.ACInfo.Fuslag[Counter2] then 
begin 

Comparison := Comparison + 1; 
lnc(Counter3); 
end 

else lnc(Counter3); 
for Counter2 := 1 to 5 do 

if (LeftAC.ACInfo.Tail[Counter2] <> ") and 
(RightAC.ACInfo.Tail[Counter2] <> ") then 
if LeftAC.ACInfo.Tail[Counter2] = RightAC.ACInfo.Tail[Counter2] then 
begin 

Comparison := Comparison + 1; 
lnc(Counter3); 
end 

else lnc(Counter3); 

CompareAircraft := Comparison/Counter3; 
end; {CompareAircraft} 

procedure Diagnose; 
const 

ALPHA = ['A’..'Z’,’a , ..’z']; 
begin 

StudentModel.Mode := ‘Diagnose’; 

StuName := 

Counterl := 1; 

SetColor(l); 

DialogScreen[1}. Init(’GetName.dlg’); 

DialogScreen(lj.Show(220,25); 

Line(220,64,420,64); 

Line(220,67,420,67); 

Line(220,70,420,70); 

while (Ch <> #13) and (Counterl < 21) do 
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begin 

Ch > ReadKey; 
if Ch = chr(32) then 
begin 

StuName := Concat(StuName,chr(32)); 

Counterl := Counted + 1; 
end; 

if Ch in ALPHA then 
begin 

SetCoior(O); 

OutTextXY(225+10*Counter1,68,Ch); 

StuName := Concat(StuName,Ch); 

Counterl := Counterl + 1; 

SetColor(l); 

end; 

if (Ch = #8) and (Counterl > 1) then 
begin 

SetColor(l); 

Line(210+10* Counterl ,64,220+10* Counterl ,64); 
Line(210+10* Counterl ,67,220+10* Counterl ,67); 
Line(210+10*Counter1,70,220+10*Counter1,70); 
Counterl ;= Counterl -1; 

StuName := Copy(StuName,1,Counter1-1); 
SetColor(O); 
end; 

end; 

DialogScreen[ 1 ]. Hide; 

DialogScreen[1].Kill; 

SetColor(O); 

StudentModel. Update(StuName ,’T each’,’No vice’ ,0); 
StudentModel.Mode := ‘Diagnose’; 

MaxNum := 75; 

Counter3 := 0; 

DialogScreen[1 ]. Init('Welcome.dlg'); 
DialogScreen[1].Show(220,25); 

Ch := ReadKey; 
while Ch = 'h' do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[1 ]. Hide; 

DialogScreen[1 ]. Kill; 
if Ch = #27 then Exit; 

DialogScreen[1 ]. Init('Diagnose.dlg’); 

DialogScreenjl ] .Show(220,25); 

Ch := ReadKey; 
while Ch = ‘h’ do 
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begin 

GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[ 1 ]. Hide; 

DialogScreen[1 j. Kill; 
if Ch = #27 then Exit; 
for Counter2 := 1 to 10 do 
begin 

Counterl := StudentModel.GetEntry(MaxNum); 
if StudentModel. ACAnray[Counter1] <> ” then 
begin 

LeftAC. InitfStudentModel. ACArray [Counterl ]); 
if LeftAC.ACInfo.Examplelnfo <> " then 
begin 

LeftAC.Show(25,72); 

WEFTMenu.lnit(Concat(Copy{LeftAC.ACInfo.Examplelnfo,1,5),’.mnu’)) 
Choice := WEFTMenu.GetChoice; 
if Choice = ‘null’ then 
begin 

LeftAC. Hide; 

LeftAC. Kill; 

Counter3 := Counter3 + 1; 

Exit; 

end; 

if Choice <> LeftAC.ACInfo.ExampleOf then 
begin 

Counter3 := Counter3 + 1; 

Sound(IOO); 

Delay (200); 

NoSound; 

end; 

LeftAC. Hide; 
end; 

Left AC. Kill; 
end; 

GoToXY(l.l); 

end; 

if Counter3 <= 1 then 

StudentModel. UpdatefStuName, T e ach', ’ Intermedi ate’, 0) 
else StudentModel.Update(StuName,'Teach','Novice',0); 
end; 

procedure Teach; 
begin (Teach) 

Ch := #13; 

if StudentModel.Level = 'Novice' then 
MaxNum := 75 
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else MaxNum > 150; 
if StudentModel.Level * ‘Novice’ then 
Diak>gScreen[1].lnit(‘TeaNov.dlg') 
else DialogScreen[1].lnit(Tealnt.dlg’); 

Dialog Screen[1].Show{220,25); 

Ch :« ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[ 1 ]. Hide; 

DialogScreen[1 j. Kill; 
if Ch * #27 then Exit; 

for Counterl := StudentModel.NumShown to MaxNum do 
if StudentModel Level * ‘Novice’ then 
begin 

if StudentModel. ACArray[Counter1] <> " then 
begin 

LeftAC. lnit(StudentModel .AC Array [Counterl ]); 
if LeftAC.ACInfo.Examplelnfo <> " then 
begin 

LeftAC.Show(25,72); 

ShowFeature (LeftAC .AC Info. Example Inf o); 

LeftAC.Hide; 
end; 

LeftAC.Kill; 

if Ch = #27 then Exit; 

IncfStudentModel. NumShown); 
end; 

end 

else 

begin 

if StudentModel.ACArray[Counter1] <> " then 
begin 

LeftAC. lnit(StudentModel .AC Array [Counter 1)); 

LeftAC.Show(25,72); 

DialogScreen[2].lnit(Concat(Copy(StudentModel.ACArray[Counter1],1,4).'.nam')) 
DialogScreen[2J. Show(50,179); 
for Counter2 := 1 to 4 do 
Ch <> #27 then 

ShowFeature(LeftAC.ACInfo.Wingslnfo[Counter2]); 
for Counter2 := 1 to 2 do 
if Ch <> #27 then 

ShowFeature(LeftAC.ACInfo.Enginelnfo[Counter2]); 
for Counter2 := 1 to 4 do 
if Ch <> #27 then 

ShowFeature(LeftAC. ACInfo.Fuslag lnfo[Counter2]); 
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for Counter2 := 1 to 5 do 
if Ch <> #27 then 

ShowFeature(LeftAC.ACInfo.Taillnfo[Counter2]); 
DialogScreen[2]. Hide; 

LeftAC.Hide; 

DialogScreen[2]. Kill; 

LeftAC.Kill; 
if Ch « #27 then Exit; 
lnc(StudentModel. NumShown); 
end; 

end; 

StudentModel.NumShown :« MaxNum; 
end; {Teach} 

procedure ReviewNovice; 
begin {ReviewNovice} 

MaxNum := 75; 

Done := false; 

DialogScreen{1].lnit(‘Return.dlg'); 

Dialog Screen[1 j.Show(220,25); 

Ch :« ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[1].Hide; 

DialogScreen[1 ]. Kill; 
if Ch = #27 then Exit; 

DialogScreen{1].lnrt(‘RevNov.dlg'); 

Dialog Screen[lj.Show(220,25); 

Ch := ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[ 1 ]. Hide; 

DialogScreenfl j. Kill; 
if Ch * #27 then Exit; 

Counterl := StudentModel.GetEntry(MaxNum); 
while (Counterl <> 0) and (Done « false) do 
begin 

LeftAC. lnit(StudentModel. AC Array[Counter1 ]); 
if LeftAC.ACInfo.Examplelnfo <> " then 
begin 

LeftAC.Show(25,72); 

WEFTMenu.lnit(Concat(Copy (LeftAC. ACInfo.Examplelnfo.1,5),'.mnu')); 
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Choice :« WEFTMenu.GetChoice; 
if Choice - LeftAC.ACInfo.ExampleOf then 
begin 

StudentModel. ACArray(Counter1 ]*’; 

DialogScreenlll.lnitfConcatCCorrect’.ChrfRandomCIO^ej.’.dlg’)); 
DialogScreen[1 ].Show(220,25); 

Ch := ReadKey; 
while Ch * ‘h’ do 
begin 
GetHelp; 

Ch :* ReadKey; 
end; 

DialogScreen[1].Hide; 

DialogScreen[1].Kill; 

end 

else H Choice <> ‘null’ then 
begin 

if StudentModel.AddEntry(StudentModel.ACArraylCounterl), MaxNum) «false 

then 

Done := true; 

DialogScreen[1].lnit(Concat(‘Wrong\Chr(Random(10)+48),\dlg’)); 

DialogScreen[1].Show(220,25); 

ShowFeature(LeftAC.ACInfo.Examplelnfo); 
if Ch « ‘h’ then 


GetHelp; 

DialogScreen[1].Hide; 

Dialog Screenjlj.Kill; 
end; 

LeftAC.Hide; 

end 

else StudentModel. AC Array [Counter!] > 
LeftAC.Kill; 

if (Ch = #27) or (Choice = ‘null’) then Exit; 
Counterl := StudentModel.GetEntry(MaxNum); 
end; 

Done > true; 
end; (ReviewNovice) 


procedure Reviewlntermediate; 

procedure HandleCorrectlntermediate; 
begin (HandleCon-ectlntermediate) 

Dialog Screen[1].lnit(Concat('Co^■ect',Chr(Random(10)+48), , .dig’)); 

Dialog Screenj 1 J .Show(220,25); 

DialogScreen(2J.lnit(Concat(Copy(StudentModel.ACArray[Counter1),1,4), , .nam')); 
DialogScreen(2).Show(50,179); 

StudentModel.ACArray(Counter1]"; 

Ch :«= ReadKey; 
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while Ch = ‘h’ do 
begin 
GetHelp; 

Ch :« ReadKey; 
end; 

DialogScreen[2]. Hide; 

Diak>gScreen[2] Kill; 

DialogScreen[ 1 ] .Hide; 

DialogScreen [1 ]. Kill; 
end; {HandleCorrectlntermediate} 

procedure HandleCloselntermediate; 
begin {HandleCloselntermediate} 

RightAC.Show(365,72); 

DialogScreen(1].lnit(‘Close.dlg’); 

Dialog Screen[1].Show(220,25); 

Ch := Readkey; 
if Ch = ‘h’ then 
GetHelp; 

DialogScreen[ 1 ]. Hide; 

DialogScreen[lj.Kill; 
if Ch = #27 then 
Exit; 

Dialog Screen[1 ]. lnit('Compare dig’); 

DialogScreen[ 1 ]. Sho w(220,25); 

DialogScreen[2J.lnit(Concat(Copy(StudentModel.ACArray[Counter1J,1,4),’.nam’)); 
if Copy(Choice,4,1) = ” then 

DialogScreen[3].lnit(Concat(Copy(Choice,1,3),’_’,’.nam')) 
else DialogScreen(3].lnit(Concat(Copy(Choice,1,4),’.nam’)); 
DialogScreen[2].Show(50,179); 

DialogScreen[3], Show{390,179); 

Ch := ReadKey; 
while Ch = ’h' do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

for Counter2 := 1 to 4 do 

if (LeftAC.ACInfo.Wings[Counter2] <> ’’) and (Ch <> #27) and 
(RightAC.ACInfo.Wings[Counter2] <> ”) then 
if LeftAC.ACInfo.Wngs[Counter2] <> RightAC.ACInfo.Wings[Counter2] then 
begin 

DialogScreen[4].lnit(Concat(LeftAC.ACInfo.Wingslnfo[Counter2J,'.dlg’)); 
Dialog Screen[5].lnit(Concat(RightAC.ACInfo.Wingslnfo[Counter2],'.dig')); 
DialogScreen[4].Show(10,30); 

DialogScreeni5].Show(430,30); 

Ch :« ReadKey; 
while Ch = 'h' do 
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begin 

GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[5]. Hide; 

DialogScreen[4]. Hide; 

DialogScreen[5]. Kill; 

DialogScreen[4j. Kill; 
end; 

for Counter2 > 1 to 2 do 

if (LeftAC.ACInfo.Engine[Counter2] <> *’) and (Ch <> #27) and 
(RightAC.ACinfo.Engine[Counter2) <> ") then 
if LeftAC.ACInfo.Engine(Counter2j <> RightAC.ACInfo.Engine[Counter2] then 
begin 

Dialog Screen[4j.lnit(Concat(LeftAC.ACInfo.Enginelnfo(Counter2],’.dig')); 
DialogScreen[5].lnit(Concat(RightAC.ACInfo.Enginelnfo[Counter2],’.dlg’)); 
DialogScreen[4] .Show( 10,30); 

DialogScreen[5].Show(430,30); 

Ch := ReadKey; 
while Ch - ’h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[5]. Hide; 

DialogScreen [4]. Hide; 

DialogScreen[5] .Kill; 

DialogScreen[4]. Kill; 
end, 

for Counter2 := 1 to 4 do 

if (LeftAC.ACInfo.Fuslag[Counter2] <> ”) and (Ch <> #27) and 
(RightAC.ACInfo.Fuslag[Counter2] <> ”) then 
if LeftAC.ACInfo.Fuslag[Counter2] <> RightAC.ACInfo.Fuslag[Counter2] then 
begin 

DialogScreen(4).lnit(Concat(LeftAC.ACInfo.Fuslaglnfo[Counter2],’.dlg')); 
DialogScreen[5j.lnit(Concat(RightAC.ACInfo.Fuslaglnfo[Counter2],’.dlg , )); 
DialogScreen[4J.Show(10,30); 

DialogScreen[5].Show(430,30); 

Ch := ReadKey; 
while Ch « ‘h’ do 
begin 
GetHelp; 

Ch > ReadKey; 
end; 

DialogScreen(5j. Hide; 

DialogScreen(4]. Hide; 

DialogScreen[5].Kill; 

DialogScreen[4].Kill; 
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end; 

for Counter2 := 1 to 5 do 

if (LeftAC.ACInfo.Tail(Counter2] <> “’) and (Ch <> #27) and 
(RightAC.ACInfo.Tail[Counter2] <> ") then 
if LeftAC.ACInfo.Tail[Counter2] <> RightAC.ACInfo.Ta:l[Counter2] then 
begin 

DialogScreen[4J.lnrt(Concat(LeftAC.ACInfo.Taillnfo[Counter2],’.dlg’)); 
DialogScreen[5].lnit(Concat(RighlAC.ACInfo.Taitlnfo[Counter2],’.cBg’)); 
DialogScreen[4]. Show (10,30); 

DialogScreen [5]. Show(430,30); 

Ch := ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch :« ReadKey; 
end; 

DialogScreen [5]. Hide; 

DialogScreen[4]. Hide; 

DialogScreen[5].Kill; 

DialogScreen{4]. Kill; 
end; 

DialogScreen[1].Hide; 

DialogScreen[1). Kill; 

DialogScreen[2]. Hide; 

DialogScreen [2] .Kill; 

DialoaScreen[3]. Hide; 

DialogScreen[3]. Kill; 

RightAC.Hide; 

end; {HandleCloselntermediate} 

procedure HandleWronglntermediate; 
begin {HandleWronglntermediate) 
DialogScreen[1].lnit(Concat(‘Wrong',Chr{Random(tO)+48),’.dlg’)); 

DialogScreen[1 j.Show(220,25); 

Ch := Readkey; 
if Ch * ‘h’ then 
GetHelp; 

DialogScreen[1 ].Hide; 

DialogScreen[1 ]. Kill; 
if Ch = #27 then Exit; 

DialogScreen[1].lnit(‘ldWEFT.dlg'); 

DialogScreen[ 1 ] .Sho w(220,25); 

DialogScreen[2].lnit(Concat(Copy(StudentModel.ACArray[Counter1],1,4),’.nam’)); 

DialogScreen[2).Show(50,179); 

Ch :« ReadKey; 
while Ch * 'h' do 
begin 
GetHelp; 
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Ch > ReadKey; 
end; 

DialogScreen[1].Hide; 

DialogScreen[lj.Kill; 
for Counter2 := 1 to 4 do 

if (LeftAC.ACInfo.Wings(Counter2J <> ") and (Ch <> #27) then 
begin 

WEFTMenu.lnit(Concat(Copy(LeftAC.ACInfo.Wingslnfo[Counter2] 1 1,5) 1 ’.mnu')); 
Choice := WEFTMenu.GetChoice; 
if Choice = LeftAC.ACInfo.Wings[Counter2] then 
begin 

DialogScreen[1].lnit(Concat(‘CorTect\Chr(Random(10)+48),'.dlg’)); 
DialogScreen[1 ].Show(220,25); 

Ch > ReadKey; 
while Ch * ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[1].Hide; 

DialogScreen[lj.Kill; 

end 

else if Choice <> ‘null’ then 
begin 

DialogScreen[1].lnit(Concat( , Wrong , ,Chr(Random(10)+48),’.dlg’)); 
DialogScreen[1 ].Show(220,25); 
ShowFeature(LeftAC.ACInfo.Wingslnfo[Counter2]); 

DialogScreen[1 J.Hide; 

DialogScreen[lj.Kill; 

end 

else Ch := #27; 
end; 

for Counter2 := 1 to 2 do 

if (LeftAC.ACInfo.Engine[Counter2] <> ") and (Ch <> #27) then 
begin 

WEFTMenu.lnit(Concat(Copy(LeftAC.ACinfo.Enginelnfo[Counter2],1,5),’.mnu')); 
Choice := WEFTMenu.GetChoice; 
if Choice - LeftAC.ACInfo.Engine[Counter2] then 
begin 

DialogScreen[1].lnit(Concat('Correct’,Chr(Random(10)+48),’.dlg’)); 
DialogScreen[1 J.Show(220,25); 

Ch := ReadKey; 
while Ch * ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen [ 1 ]. Hide; 
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DialogScreen[1].Kill; 

end 

else if Choice <> ‘null’ then 
begin 

DialogScreen[1].lnit(Concat('Wrong’,Chr(Random(10)+48),’.dlg')); 

DialogScreen[1].Show(220,25); 

ShowFeature(LeftAC.ACInfo.Enginelnfo[Counter2]); 

DialogScreen [ 1 ]. Hide; 

DialogScreen[lj.Kill; 

end 

else Ch := #27; 
end; 

for Counter2 ■.= 1 to 4 do 

if (LeftAC.ACInfo.Fuslag[Counter2] <> ") and (Ch <> #27) then 
begin 

WEFTMenu.lnit(Concat(Copy(LeftAC.ACInfo.Fuslaglnfo[Counter2],1,5), , .mnu’)); 
Choice :«= WEFTMenu.GetChoice; 
if Choice = LeftAC.ACInfo.Fuslag[Counter2] then 
begin 

DialogScreen[1].lnit(Concat( , Correct’,Chr(Random(10)+48),’.dlg’)); 
DialogScreen[1 ].Show(220,25); 

Ch := ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch > ReadKey; 
end; 

DialogScreen( 1 ]. Hide; 

DialogScreen[1].Kill; 

end 

else if Choice <> ‘null’ then 
begin 

DialogScreen[1].lnit(Concat(‘Wrong’,Chr(Random(10)+48),’.dlg')); 
DialogScreen[1 ].Show(220,25); 
ShowFeature(LeftAC.ACInfo.Fus!aglnfo[Counter2]); 

DialogScreen[1 ]. Hide; 

DialogScreen[lj.Kill; 

end 

else Ch := #27; 
end; 

for Counter2 := 1 to 5 do 

if (LeftAC.ACInfo.Tail[Counter2j <> ") and (Ch <> #27) then 
begin 

WEFTMenu.lnit(Concat(Copy(LeftAC.ACInfo.Taillnfo[Counter2],1,5),’.mnu’)); 
Choice := WEFTMenu.GetChoice; 
if Choice = LeftAC.ACInfo.Tail[Counter2] then 
begin 

DialogScreen[1].lnit(Concat('Correct',Chr(Random(10)+48),’.dlg’)); 
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DialogScreen[1 ].Show(220,25); 

Ch := ReadKey; 
while Ch * 'h' do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen [1 ]. Hide; 

DialogScreen[lj.Kill; 

end 

else if Choice <> ‘null’ then 
begin 

D'alogScreen[1].lnit{Concat(‘Wrong\Chr(Random(10)+48),’.dlg’)); 
L.alogScreen[1 ].Show(220 t 25); 

ShowFeature(LeftAC. ACInfo .T aillnfo[Counter2]); 

DialogScreen [ 1J. Hide; 

DialogScreen[1].Kill; 

end 

else Ch := #27; 
end; 

DialogScreen[2]. Hide; 

DialogScreen{2] .Kill; 
end; {HandleWrong Intermediate} 

begin {Reviewlntermediate} 

MaxNum := 150; 

Ch > #13; 

Done := false; 

DialogScreen! 1 ]. I nit(‘ Return dig ); 

DialogScreen[1].Show(220,25); 

Ch := ReadKey; 
while Ch = 'h' do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[ 1 ]. H ide; 

DialogScreen[1].Kill; 
if Ch = #27 then Exit; 

DialogScreen[l J. Inrt('Revlnt.dlg’); 

DialogScreen[1 j.Show(220,25); 

Ch := ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[1 ].Hide; 
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DialogScreen[1 ]. Kill; 
if Ch = #27 then Exit; 

Counted := StudentModel.GetEntry(MaxNum); 
while {Counted <> 0) and (Done = false) do 
begin 

LeftAC. lnit(StudentModel. AC Array[Counter1 ]); 

WEFTMenu.lnit(‘WEFT.mnu); 

CorrectAnswer .= false; 

Close Answer := false; 

LeftAC.Show(25,72); 

Choice := WEFTMenu.GetChoice; 
if Choice * ‘null’ then 
begin 

LeftAC. Hide; 

LeftAC. Kill; 

Exit; 

end; 

if Choice = LeftAC.ACInfo.AircraftName then 
HandleCorrectlntermediate 
else 
begin 

if Copy(Choice,4,1) = '' then 

RightAC.Init(Concat(Copy(Choice,1,3),’_’,Copy(StudentModel.ACArray[Counter1],5,3))) 
else RightAC.Init(Concat(Copy(Choice,1,4) > Copy(StudentModel.ACArray[Counter1],5,3))); 
if CompareAircraft >= 0.7 then 
HandleCloselntermediate 
else 
begin 

HandleWronglntermediate; 

if StudentModel.AddEntry{StudentModel.ACArray[Counterl], MaxNum) = false 


then 


Done := true; 

end; 

RightAC.Hide; 

RightAC.Kill; 

end; 

GoToXY(1,1); 

Left AC. Hide, 

LeftAC.Kill; 

if Ch = #27 then Exit; 

Counted := StudentModel.GetEntry(MaxNum); 
end; 

Done := true; 

end; {Reviewlntermediate} 


procedure ReviewExpert; 
var 

Feature . array {1 ..16] of name; 


3 
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begin {ReviewExpert} 

MaxNum := 150; 

Ch := #13; 

Done := false; 

DialogScreen[1].lnit(‘Retum.dlg'); 

DiaiogScreenfl ] .Show(220,25); 

Ch := ReadKey; 
while Ch = ‘h’ do 
begin 
GefHelp; 

Ch := ReadKey; 
end; 

DialogScreen[1].Hide; 

DialogScreen [1 ]. Kill; 
if Ch = #27 then Exit; 

DialogScreenflJ.lnitCRevExp.dlg’); 

Dialog Screenf1].Show(220,25); 

Ch := ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreenfl J.Hide; 

DiaiogScreenfl].Kill; 
if Ch = #27 then Exit; 

Counterl := StudentModel.GetEntry(MaxNum); 
while (Counterl <> 0) and (Done = false) do 
begin 

Counter3 := 1; 

LeftAC.Init(StudentModel.ACArray[Counter1 ]); 

WEFTMenu.lnit(’WEFT.mnu’); 

for Counter2 := 1 to 4 do 

if LeftAC.ACInfo.Wingslnfo(Counter2] <> ” then 
begin 

Feature[Counter3] := LeftAC.ACInfo.Wingslnfo[Counter2J; 
Counter3 := Counter3 + 1; 
end; 

for Counter2 := 1 to 2 do 

if LeftAC.ACInfo.Enginelnfo(Counter2] <> " then 
begin 

Feature(Counter3] := LeftAC.ACInfo.Enginelnfo[Counter2J; 
Counter3 := Counter3 + 1; 
end; 

for Counter2 > 1 to 4 do 

if LeftAC.ACInfo.Fuslaglnfo[Counter2] <> " then 
begin 

FeaturefCounter3] := LeftAC.ACInfo.Fuslaglnfo[Counter2J; 
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Counter3 :=■ Counter3 + 1; 
end; 

for Counter2 := 1 to 5 do 
if LeftAC.ACInfo.Taillnfo[Counter2] <> " then 
begin 

Feature[Counter3] := LeftAC.ACInfo.Taillnfo[Counter2]; 

Counter3 := Counter3 + 1; 
end; 

Counter2 := 1; 

Ch := #8; 

while Ch <> #13 do 
begin 

ShowFeature(Feature(Counter2]); 
if (Ch =and (Counter2 > 1) then 
Counter2 :«= Counter2 -1 
else if (Ch = and (Counter2 = 1) then 
Counter2 Counter3 -1 

else if (Ch = V) and (Counter2 < Counter3 -1) then 
Counter2 := Counter2 + 1 

else if (Ch = '+’) and (Counter2 <= Counter3 -1) then 
Counter2 := 1 
else if Ch = #27 then Exit 
else 
begin 

Sound(440); 

Delay(200); 

NoSound; 

end; 

end; 

Choice := WEFTMenu.GetChoice; 
if Choice = 'null' then 
Exit; 

DialogScreen[2].lnit(Concat(Copy(StudentModel.ACArray[Counter1] > 1,4),’.nam')) 

LeftAC.Show(25,72); 

DialogScreen[2]. Show(50,179); 
if Choice = LeftAC.ACInfo.AircraftName then 
begin 

DialogScreen[1].lnit(Concat('Correct\Chr(Random(10)+48),’.dlg')); 

DialogScreen[1].Show(220,25); 

StudentModel.ACArray(Counter1] := "; 

Ch := ReadKey; 
while Ch = 'h' do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[1 ]. Hide; 

DialogScreen[1).Kill; 


79 



end 

else 

begin 

DialogScreen[1].ln^t{Concat<'Wrong\Chr(Random(10)+48),’.dlg , )); 
DialogScreen[1].Show(220,25); 
if Copy(Choice,4,1) = ‘ ‘ then 
begin 

RightAC.Init(Concat(Copy(Choice,1,3),’_’,Copy(StudentModel.ACArray[Counter1],5,3))); 
Dialog Screen[3].lnit(Concat(Copy(Choice,1,3),’J.’.nam’)); 
end 
else 
begin 

RightAC.Init{Concat(Copy(Choice ) 1,4),Copy(StudentModel.ACArray[Counter1] 1 5,3))); 

DialogScreen[3].lnit(Concat(Copy(Choice,1,4),’.nam , )); 

end; 

RightAC.Show(365,72); 

DialogScreen[3].Show(390,179); 

Ch := ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[1 ]. Hide; 

DialogScreen[1].Kill; 

DialogScreen[3]. Hide; 

DialogScreen[3). Kill; 

RightAC.Hide; 

RightAC.Kill; 

if StudentModel.AddEntry(StudentModel.ACArray[Counter1], MaxNum) = false then 
Done := true; 

end; 

GoToXY(1,1); 

DialogScreen[2].Hide; 

DialogScreen[2].Kill; 

LeftAC.Hide; 

LeftAC.Kill; 

if Ch = #27 then Exit; 

Counterl := StudentModel.GetEntry(MaxNum); 
end; 

Done := true; 
end; {ReviewExpert} 

procedure Testlntermediate; 
begin {Testlntermediate} 

Ch := #13; 

Done := false; 

MaxNum ;= 150; 
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DialogScreenlll.lnitCReturn-cHg'); 

Dialog Screen[lj.Show(220,25); 

Ch := ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

Dia!ogScreen[ 1 ]. Hide; 

DialogScreen[lj.Kill; 

H Ch = #27 then Exit; 

DialogScreen[1 ]. lnit(‘T estlnt dig); 
DialogScreen(lj.Show(220,25); 

Ch := ReadKey; 
while Ch = 'h' do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[1].Hide; 

DialogScreen[1].Kill; 
if Ch = #27 then Exit; 

Counterl > StudentModel.GetEntry(MaxNum); 
while Counterl <> 0 do 
begin 

if StudentModel.ACArray[Counter1] <> " then 
begin 

LeftAC.Init(StudentModel.ACArray[Counter1]); 

LeftAC.Show(25,72); 

WEFTMenu.lnit(‘WEFT.mnu'); 

Choice := WEFTMenu.GetChoice; 
if Choice = ‘null’ then 
begin 

LeftAC.Hide; 

LeftAC.Kill; 

Exit; 

end; 

if Choice <> LeftAC.ACInfo.AircraftName then 
begin 

lnc(StudentModel.Num Missed); 
Sound(IOO); 

Delay(200); 

NoSound; 

end; 

lnc(StudentModel. NumShown); 

LeftAC.Hide; 

LeftAC.Kill; 

end; 
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GoToXY(l.l); 

StudentModel.ACArray[CounteTl] := 

Counterl ;= StudentModel.GetEntry (MaxNum); 
end; 

Done := true; 
end; {Testlntermediate} 

procedure TestExpert; 
var 

Feature : array [1 ..16] of name; 
begin {TestExpert} 

MaxNum 150; 

Ch :«#13; 

Done :=> false; 

DialogScreen[1 ]. lnit(‘Return.dlg’); 

DialogScreen[1].Show(220,25); 

Ch := ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch ;= ReadKey; 
end; 

DialogScreen[ 1 ]. Hide; 

DialogScreen[1].Kill; 
if Ch = #27 then Exit; 

DialogScreen[1 ].lnit(‘TestExp dig’); 

DialogScreen[ 1 ] .Sho w{220,25); 

Ch := ReadKey; 
while Ch * 'h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[1].Hide; 

DialogScreen[1 j.Kill; 
if Ch * #27 then Exit; 

Counterl := StudentModel.GetEntry(MaxNum); 
while Counterl <> 0 do 
begin 

if StudentModel.ACArray[Counter1] <> " then 
begin 

LeftAC.Init(StudentModel.ACArray[Counter1]); 

WEFTMenu.lnit(’WEFT.mnu’); 

Counter3 :® 1; 

for Counter2 :■ 1 to 4 do 

if LeftAC.ACInfo.Wingslnfo[Counter2] <> " then 
begin 

Feature[Counter3] := LeftAC.ACInfo.Wingslnfo[Counter2]; 
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Counter3 :« Counter3 + 1; 
end; 

for Counter2 >1 to 2 do 

if LeftAC.ACinfo.Enginelnfo[Counter2] <> " then 
begin 

Feature{Counter3] :« LeftAC.ACInfo.Enginelnfo[Counter2]; 
Counter3 := Counter3 + 1; 
end; 

for Counter2 := 1 to 4 do 

if LeftAC.ACInfo.Fuslaglnfo[Counter2] <> " then 
begin 

Feature[Counter3] := LeftAC.ACInfo.FL*sleglnfo[Counter2]; 
Counter3 := Counter3 + 1; 
end; 

for Counter2 := 1 to 5 do 

if LeftAC.ACInfo.Taillnfo[Counter2] <> ” then 
begin 

Feature[Counter3] := LeftAC.ACInfo.Taillnfo[Counter2]; 
Counter3 := Counter3 + 1; 
end; 

Counter2 := 1; 

Ch := #8; 

while Ch <> #13 do 
begin 

ShowFeature(Feature[Counter2]); 
if (Ch = -’) and (Counter2 > 1) then 
Counter2 := Counter2 -1 
else if (Ch = and (Counter2 « 1) then 
Counter2 > Counter3 -1 

else if (Ch - V) and (Counter2 < Counter3 -1) then 
Counter2 := Counter2 + 1 

else if (Ch « V) and (Counter2 = Counter3 -1) then 
Counter2 := 1 
else if Ch = #27 then Exit 
else 
begin 

Sound(440); 

Delay(200); 

NoSound; 

end; 

end; 

Choice :« WEFTMenu.GetChoice; 
if Choice = 'null' then 
Exit; 

LeftAC.Show(25,72); 

if Choice <> LeftAC.ACInfo.AircraftName then 
begin 

Inc(StudentModel.NumMissed); 
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Sound(IOO); 

Delay (200); 

NoSound; 

end; 

Inc(StudentModel.NumShown); 

Ch := ReadKey; 
while Ch « *h' do 
begin 
GetHelp; 

Ch :» ReadKey; 
end; 

LeftAC.Hide; 

LeftAC.Kill; 

if Ch - #27 then Exit; 

GoToXY(l.l); 

StudentModel. ACArray{Counter1] > "; 

Counterl := StudentModel.GetEntry(MaxNum); 
end; 

end; 

Done :■ true; 
end; (TestExpert) 

procedure EvaluateStudent; 
var F : text; 

begin {EvaluateStudent} 

if (StudentModel.Mode = Teach') and (StudentModel.NumShown >= MaxNum) then 
begin 

StudentModel.Update(StudentModel.StudentName,'Review', 

StudentModel. Level, StudentModel .T estScore); 

DialogScreen{1 ]. In'rtC Advancel .dig'); 

Dialog Screen[1].Show(220,25); 

Ch := ReadKey; 

DialogScreen[1 ].Hide; 

DialogScreenjlj.Kill; 

end 

else if (StudentModel.Mode * 'Review') and (Done »true) then 
begin 

if StudentModel.GetEntry(MaxNum + 150) * 0 then 
begin 

if StudentModel.Level = 'Novice' then 
begin 

StudentModel.Update(StudentModel.StudentName > ’Teach’,'Intermediate', 
StudentModel.TestScore); 

DialogScreen(1 J. lnit('Advance2.dlg’); 

Dialog Screen{lj.Show(220,25); 

Ch :« ReadKey; 

DialogScreen[1 ]. Hide; 

Dialog Screenj 1 ]. Kill; 
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end 

else 

begin 

StudentModel. Update (StudentModel. StudentName, T est', 
StudentModel.Level.StudentModel.T estScore); 

DialogScreen[ 1 ]. Init(‘Advance 1 dig’); 

Dialog Screen[lj.Show(220,25); 

Ch :« ReadKey; 

DialogScreen[1 J.Hide; 

DialogScreen[ 1 ]. Kill; 
end 
end 
else 

for Counterl := 1 to MaxNum do 
begin 

StudentModel.ACArray[Counter1] := StudentModel.MissedArray(Counter1]; 
StudentModel.MissedArrayJCounterl) > 

StudentModel. NumShown := 1; 

StudentModel.NumMissed 0; 
end 

end 

else if (StudentModel.Mode = ‘Test’) and (Done = true) then 
begin 

if StudentModel.NumMissed * 0 then 
begin 

if StudentModel. Level * ‘Expert’ then 
begin 

Assign(F,’HallFame.rec’); 

Append(F); 

Writeln(F.StudentModel.StudentName); 

Close(F); 

StudentModel. Kill 
end 
else 
begin 

DialogScreen[1).lnit('Great.dlg’); 

DialogScreen[1 j.Show(220,25); 

StudentModel.Update(StudentModel.StudentName,'Review’,’Expert’,100); 

Ch ReadKey; 

DialogScree.i[1 ]. Hide; 

DialogScreen[ 1 ]. Kill; 
end 
end 
else 
begin 

Score .« Round(100*(1 - (StudentModel NumMissed/(StudentModel.NumShown-1)))); 
DialogScreen(11.lnit(’Score.dlg’); 

DialogScreenj 1 ]. Show (220,25); 
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SetColor(l); 

OutTextXY(315,60,Chr(Score div 10 + 48)); 

OutTextXY(325,60,Chr(Score mod 10 + 48)); 

SetColor(O); 

Ch :* ReadKey; 

DialogScreen[1 J.Hide; 

DialogScreen[lj.Kill; 
if Score >* 90 then 
begin 

if StudentModel. Level = ‘Expert’ then 
begin 

DialogScreen[1].lnit(‘Outst.dlg’); 

DialogScreen[lj.Show(220,25); 

StudentModel. Update (Student Model. StudentName, Test’Expert* .Score); 
Ch := ReadKey; 

DialogScreenJI J.Hide; 

DialogScreenJI ]. Kill; 
end 
else 
begin 

Dialog Screen[1 ]. lnit('Good .dig’); 

DialogScreenJI J.Show(220,25); 

Ch := ReadKey; 

DialogScreenJI J.Hide; 

DialogScreenJI].Kill; 
if StudentModel.Level = ‘Novice’ then 
StudentModel. Update (StudentModel .StudentName, ’T each’, 

’ Intermediate’,Score) 

else 

StudentModel.Update(StudentModel.StudentName,'Review', 

'Expert,Score); 

end 

end 

else if Score >= 80 then 
begin 

DialogScreenJI J.lnit('Fair.cHg’); 

DialogScreenfl j.Show(220,25); 

Ch := ReadKey; 

DialogScreenJI ]. Hide; 

DialogScreenjl j. Kill; 

StudentModel. Update(StudentModel. StudentName, Test', StudentModel. Level, Score); 
end 

else if Score >-= 70 then 
begin 

DialogScreen[1].lnit('Poor.dlg’); 

Dialog Screen[1].Show(220,25); 

Ch := ReadKey; 

DialogScreenfl ]. Hide; 
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DialogScreen[1 ]. Kill; 

StudentModel.Up^e(StudentModel.StudentName,’Review’,StudentModel.Level,Score); 
end 
else 
begin 

DialogScreen[1].lnit(‘Fail.<flg’); 

Dialog Screen! 1 ] .Show(220,25); 

Ch :« ReadKey; 

DialogScr een[ 1 ]. Hide; 

DialogScreen[ 1 ]. Kill; 
if StudentModel. Level * ‘Expert’ then 
StudentModel.Update(StudentModel.StudentName, 

’ Review’,’ Intermediate’, Score) 

else 

StudentModel. Update (StudentModel .StudentName, 

’ Review’, ’ Novice’, Score); 

end; 

end; 

end; 

end; {EvaluateStudent} 

procedure TutorSession; 
begin {TutorSession} 

if not StudentModel.Get then 
Diagnose; 

Ch := ‘C’; 

while UpCase(Ch) = ‘C’ do 
begin 

SetColor(l); 

OutTextXY(320,190,Concat(StudentModel.Mode,’/’.StudentModel.Level)); 

SetColor(O); 

if StudentModel.Level = ’Novice’ then 
begin 

if StudentModel. Mode = Teach’ then Teach 
else if StudentModel.Mode = ’Review’ then ReviewNovice; 
end 

else if StudentModel.Level = ’Intermediate’ then 
begin 

if StudentModel. Mode = ’Teach’ then Teach 
else if StudentModel.Mode = ’Review’ then Reviewlntermediate 
else if StudentModel.Mode * ’Test’ then Testlntermediate; 
end 

else if StudentModel.Level = ’Expert’ then 
begin 

H StudentModel.Mode » ’Review’ then ReviewExpert 
else if StudentModel.Mode = ’Test’ then TestExpert; 
end; 

SetColor(O); 
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OutTextXY(320J90,Concat(StudentModel.Mode,’/\StudentModel.Level)); 

EvaluateStudent; 

Dialog Screen[1 ].lnit(‘Contin.dlg’); 

Dialog Screenjl j.Show(220,75); 

Ch ReadKey; 

DialogScreen[ 1 ]. Hide; 

Dialog Screenjl j.Kill; 
end; 

StudentModel. Save; 
end; {TutorSession} 

end. 
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unit Game; 


interface 

procedure PlayGame; 
implementation 

uses CRT, Graph, Student, Aircfts, Dialogs, Menus, Help; 
type 

name = string[20]; 
var 

Counterl, Counter2, Counter3, MaxTime, MaxNum, PL1 Score, PL2Score : integer; 
Score : string; 

Ch, PI : char; 

LeftAC, RightAC : Aircraft; 

DialogScreen : array [1..2] of Dialog; 

WEFTMenu : Menu; 

Choice : name; 

procedure ShowScores; 
begin 

SetColor(O); 

Line(260,62,280,62); 

Line(260,65,280,65); 

Line(260,68,280,68); 

SetColor(l); 

Str(PL1 Score,Score); 

OutTextXY(270,65,Score); 

SetColor(O); 

Line(360,62,380,62); 

Line(360,65,380,65); 

Line(360,68,380,68); 

SetColor(l); 

Str(PL2Score,Score); 

OutTextXY(370,65,Score); 

SetColor(O); 

end; 

procedure PlayOne; 
begin 

DialogScreen[2].lnit('NoGame.dlg’); 

DialogScreen[2].Show(220,100); 

SetColor(l); 

OutT extX Y (319,142, LeftAC .AC Info. AircraftName); 

SetColor(O); 

Ch := ReadKey; 






while Ch = ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[2]. Hide; 

DialogScreen[2].Kill; 

LeftAC.Hide; 

RightAC.Hide; 

LettAC.Kill; 

RightAC.Kill; 

PL2Score > PL2Score + 1; 

ShowScores; 

DialogScreen(2]. lnit('Ready .dig’); 
DialogScreen[2].Show(220,95); 

Ch := ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[2]. Hide; 

DialogScreen[2]. Kill; 
end; 

procedure PlayTwo; 
begin 

DialogScreen[1].lnit('GScore.dlg'); 

DialogScreen[lj.Show(220,25); 

ShowScores; 

DialogScreen(2], lnit(‘Ready .dig’); 

DialogScreen[2] .Show(220,95); 

Ch := ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[2] Hide; 

DialogScreen[2]. Kill; 
for Counterl := 1 to 25 do 
begin 

Counter3 > 0; 

Counter2 :« StudentModei.GetEntry(MaxNum); 
LeftAC. lnit(StudentModel. AC Array(Counter2]); 
RightAC.Init(StudentModel.ACArray[Counter2]); 
LeftAC.Show{25,72); 

RightAC.Show(365,72); 
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while (UpCase(Ch) <> ‘A’) and (UpCase(Ch) <> 'L’) and (Ch <> #8) do 
begin 

Counter3 > Counters + 1; 
if Counter3 > MaxTime then 
Ch #8; 

Delay (5); 

if KeyPressed then 
Ch :»= ReadKey; 

end; 

PI := UpCase(Ch); 
if PI = #8 then 
begin 

if MaxTime <> 1000 then 
PlayOne 
else 
begin 

Left AC. Hide; 

RightAC.Hide; 

LeftAC.Kill; 

RightAC.Kill; 

DialogScreen[2]. lnit('TimeOut .dig'); 
DialogScreen[2].Show(220,95); 

Ch := ReadKey; 
while Ch » 'h' do 
begin 
GetHelp; 

Ch :■ ReadKey; 
end; 

DialogScreen[2].Hide; 

DialogScreen[2]. Kill; 
end 

end 

else 

begin 

RightAC.Hide; 

RightAC.Kill; 
if PI = ‘A’ then 

DialogScreen[2]. lnit('Play 1 .dig') 
else DialogScreen[2].lnit('Play2.dlg’); 
DialogScreen[2].Show(220,25); 

WEFTMenu.lnit('WEFT.mnu'); 

Choice :* WEFTMenu.GetChoice; 

DialogScreen[2].Hide; 

LeftAC.Hide; 

DialogScreen[2]. Kill; 

LeftAC.Kill; 

if Choice <> LeftAC.ACInfo.AircraftName then 
begin 
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Sound(IOO); 

Delay{200); 

if PI - ‘A’ then Dec(PL1 Score) 
else Dec(PL2Score); 

NoS< nd; 
end 
else 
begin 

if PI = ‘A’ then lnc(PL1 Score) 
else lnc(PI2Score); 
end; 

ShowScores; 
if Counterl < 25 then 
begin 

DialogScreen[2].lnit('Ready.dlg’); 
DialogScreen[2].Show(220,95); 
Ch :« ReadKey; 
while Ch = ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[2]. Hide; 
DialogScreen[2]. Kill; 
end; 

end; 

GoToXY(1,1); 

Ch := #13; 
end; 

if PL1 Score > PL2Score then 
DialogScreen[2].lnrt(‘Win1 .dig') 
else if PL2Score > PL1 Score then 
Dialog Screen[2].lnrt('Wm2.dlg') 
else DialogScreen[2J.Init(Tie.dlg’); 
DialogScreen[2].Show(220,95); 

Ch := ReadKey; 

DialogScreen[2]. Hide; 

DialogScreen[2] .Kill; 

DialogScreen[1 j. Hide; 

DialogScreen[lj.Kill; 

end; 

procedure PlayGame; 
begin 

StudentModel.Update(‘ ‘.'Game',’Game’,0); 
MaxNum := 150; 

DialogScreen[1 J. lnit('Game .dig’); 
DialogScreen[lj.Show(220,75); 
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Ch :* Read Key; 

while (Ch <> T) and (Ch <> '2') and (Ch <> #27) do 
begin 

if Ch = ‘h’ then 
GetHelp; 

Ch := ReadKey; 
end; 

DialogScreen[1].Hide; 

DialogScreen[1 j.Kill; 

PL1 Score := 0; 

PL2Score := 0; 

if Ch - #27 then Exit 

else if Ch = ‘1 ’ then 
begin 

Randomize; 

MaxTime := Random(250) + 250; 

PlayTwo; 

end 

else if Ch = ‘2’ then 
begin 

MaxTime := 1000; 

PlayTwo; 

end; 

end; 
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unit Help; 
interface 

uses CRT, Graph, Screens, Student; 
type 

HELPScreen = object(Screen) 

OklP : pointer; 

procedure Show(XLoc, VLoc : integer); 
procedure Hide; 
end; 

procedure GetHelp; 

implementation 

var 

Help Item : HelpScreen; 

Ch : char; 

procedure GetHelp; 
begin 

if StudentModel.Mode = " then 
Helpltem. lnit(‘Menu.hlp) 
else if StudentModel.Mode = 'Game' then 
Helpltem. lnit(‘Game. hip') 
else if StudentModel.Mode = ‘Setup’ then 
Help Item. lnrt(‘Setup. hip’) 
else if StudentModel.Mode = ‘StuRep’ then 
Helpltem. lnit(‘StuRep.hlp') 
else if StudentModel.Mode = ‘DelStu’ then 
Helpltem. lnrt(‘DelStu.hlp’) 
else if StudentModel.Mode = ‘SelAC’ then 
Helpftem.lnit(‘SelAC.hlp') 
else if StudentModel.Mode = ‘AddAC’ then 
Helpltem. InitCAddAC.hip') 
else if StudentModel.Mode = ‘Diagnose’ then 
Helpltem.lnit(‘Diagnose.hlp’) 
else if StudentModel.Mode = 'Teach' then 
begin 

if StudentModel.Level = ‘Novice’ then 
Helpltem. lnit('T eaNov.hlp’) 
else Help Item. lnit(‘Tealnt.hlp’); 
end 

else if StudentModel.Mode - ‘Test’ then 
begin 

H StudentModel.Level * ‘Intermediate’ then 
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Helpltem.InitCTestlnt.hlp') 
else Helpltem. lnit(‘TestExp.hip') 
end 
else 
begin 

H StudentModel. Level = 'Novice' then 
Helpltem. lnit(‘RevNov.hlp’) 
else H StudentModel. Level = ‘Intermediate’ then 
Helpltem. lnit(‘Revlnt.hlp') 
else Helpltem.Init('RevExp.hlp’); 
end; 

Helpltem.Show(O.O); 

Ch := ReadKey; 

Helpltem. Hide; 

Helpltem.Kill; 
end; 

procedure HELPScreen.Show(XLoc,YLoc : integer); 
begin 

if not IsVisible then 
begin 

X := XLoc; 

Y YLoc; 

GetMem(OldP, MemSize);{Save the old bitmap} 
Getlmage(X, Y.X+639, Y+199,OldP A ); 
Putlmage(X,Y,P A ,CopyPut);{and draw the new bitmap.} 
IsVisible := true; 
end; 

end; 

procedure HELPScreen.Hide; 
begin 

if IsVisible then 
begin 

Putlmage(X.Y,OldP A ,CopyPut);{Put the old bitmap back} 
FreeMem(OldP, MemSize);{and free the heap memory.} 
IsVisible := false; 
end; 

end; 


end. 
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unit Utility; 


interface 

procedure Setup; 
implementation 
uses 

DOS.CRT, Graph, PCX_TP, Student, Menus, Screens, Aircfts, Dialogs, Help; 

type 

name = string[20]; 


retcode: integer; 

F : text; 

Textstring : string; 

Counter: integer; 

SetUpMenu : Menu; 

DialogScreen : Dialog; 

StudentMenu : Menu; 

ACMenu : Menu; 

StudentReport: Screen; 

Choice : name; 

Ch : char; 

procedure GetStudents; 
var 

Dirlnfo : SearchRec; 
begin 

Assign (F, Student, rec’); 

ReWrite(F); 

Writeln(F,’STUDENTS’); 

Writeln(F,320); 

Writeln(F,50); 

Writeln(F.I); 

FindFirst(“ .mdl’,AnyFile, Dirlnfo); 
while DosError = 0 do 
begin 

Writeln(F,Copy(Dirlnfo.Name,1,5)); 
FindNext(Dirlnfo); 
end; 

Close(F); 

end; 

procedure SelectAC; 
var 

ACArray : array [1 ..150] of name; 
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Dirlnfo: SearchRec; 

F1,F2 : text; 

Counterl : integer; 

ACName : name; 
begin 

StudentModel.Mode :■ ‘SelAC’; 

Counter :■ 1; 

FmdFirst(“.nam',AnyFile, Dirlnfo); 
while DosError = 0 do 
begin 

Assign(F1 ,Concat(Copy(Dirlnfo.Name,1,4),’_#1 .dat’)); 
Reset(FI); 

Readin(F1 .ACName); 

ACArray{Counter] > ACName; 

Counter :* Counter + 1; 

Close(FI); 

FindNext(Dirlnfo); 

end; 

Assign(F,’Aircraft.rec’); 

ReWrite(F); 

Writeln(F,’AIRCRAFT’); 

Writeln(F,320); 

Writeln(F,50): 

Writeln(F.I); 

for Counterl :* 1 to Counter-1 do 
if ACArray[Counter1] <> " then 
Writeln(F, AC Array [Counterl]); 

Close(F); 

Assign(F.’lntermed.def’); 

Assign(F1 ,’WEFT.mnu); 

Rewrite(F); 

Rewrite(FI); 

Writeln(F,’lntermed default'); 

Writeln(F,’Teach’); 

Writeln(F,'Intermediate'); 

Writeln(F.O); 

Writeln(F,1); 

Writeln(F,0); 

Writeln(F1 .’AIRCRAFT’); 

Writeln(F1,490); 

Writeln(F1,76); 

Writeln(FI.O); 

DialogScreen. lnit(‘SelAC.dlg’); 

DialogScreen. Show(0.0); 

ACMenu. Init(‘Aircraft.rec'); 

Choice := ACMenu.GetChoice; 
while Choice <> 'null' do 
begin 
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if Copy(Choice,4,1) «‘' then 
begin 

Writeln(F,Concat(Copy(Choice,1,3),’_#1')) 

Writeln(F,Concat(Copy(Choice l 1,3),’_#2’)) 

Writeln(F,Concat{Copy(Choice,1,3),’_#3’)) 

end 

else 

begin 

Writeln(F t Concat(Copy(Choice,1,4),’_#1')); 
Writ eln (F, Concat( Copy (Ch oice, 1,4),’_#2')); 
Writeln(F,Concat(Copy(Choice,1,4),’_#3')); 
end; 

Writeln(F1 .Choice); 
for Counterl := 1 to Counter-1 do 
if ACArray[Counter1 ] = Choice then 
ACArray[Counter1 ] := ''; 
Assign(F2,’Aircraft.rec'); 

ReWrite(F2); 

Writeln(F2,’AIRCRAFT’); 

Writeln(F2,320); 

Writeln(F2,50); 

Writeln(F2,1); 

for Counterl := 1 to Counter-1 do 
if ACArray[Counter1] <> ‘ * then 
Writeln(F2,ACArray[Counter1]); 

Close(F2); 

ACMenu.lnit('Aircraft.rec'); 

Choice := ACMenu.GetChoice; 


end; 

DialogScreen.Hide; 

DialogScreen.Kill; 

Close(F); 

Close(FI); 

end; 


procedure AddAC; 
const 

ALPHA - [ , 0’..’9*.’A'..’2’,’a’..’z’,’-’]; 

var 

ACName : name; 

Dirlnfo : SearchRec; 

Counterl ,Counter2 : integer; 

Size : word; 

P : pointer; 
s : string; 

FileName : string; 

F : file; 
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FI :text; 

Ch : char; 

Offset,MaxX,MaxV,X,Y : integer; 

OldAC : aircraft; 
begin 

StudentModel.Mode := ‘AddAC’; 

ACName > 

Counterl := 1; 

SetColor(l); 

DialogScreen. lnit(‘GetAC.dlg’); 
DialogScreen.Show(220,25); 

Line(220,64,420,64); 

Line(220,67,420,67); 

Line(220,70,420,70); 

Ch := #8; 

while (Ch <> #13) and (Counterl < 21) do 
begin 

Ch := ReadKey; 
if Ch = chr(32) then 
begin 

ACName := Concat(ACName,chr(32)); 

Counterl := Counterl + 1; 
end; 

if Ch ir. ALPHA then 
begin 

SetColor(O), 

OutTextXY(225+10‘Counter1,68,Ch); 

ACName := Concat(ACName,Ch); 

Counterl :«= Counterl + 1; 

SetColor(l); 

end; 

if (Ch = #8) and (Counterl > 1) then 
begin 

SetColor(l); 

Line(210+10*Counter1,64,220+10*Counter1,64) 
Line(210+10*Counter1,67,220+10*Counter1,67) 
Line(210+10'Counterl ,70,220+10* Counterl ,70) 
Counterl := Counterl -1; 

ACName := Copy(ACName,1,Counterl-1); 
SetColor(O); 
end; 

end; 

Dialog Screen.Hide; 

DialogScreen. Kill; 

DialogScreen. Init(' New. dig'); 

DialogScreen. Show(0,179); 

SetT extJustify (CenterT ext.CenterText); 

OutTextXY(100,189,ACName); 
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if Copy(ACName,4,1) - “ then 

FindFirst(Concat(Copy(ACName,1,3),'_.nam’),AnyRle, Dirlnfo) 
else FindFirst(Concat(Copy(ACName,1,4) 1 ’.nam’),AnyFile, Dirlnfo); 

Size := lmageSize(0,179,200,199); 

GetMem(P.Size); 

Getlmage(0,179,200,199,P A ); 
if Copy(ACName,4,1) * ‘' then 
Assign(F,Concat(Copy(ACName,1 1 3),’_.nam’)) 
else Assign(F,Concat(Copy(ACName,1,4),'.nam')); 

ReWrite(F.I); 

Bk>ckWrite(F,P A ,Size); 

Close(F); 

FreeMem(P,Size); 

Dialog Screen.Hide; 

DialogScreen.Kill; 

Offset := 140; 

MaxX := 499; 

MaxY >219; 
for Counterl := 1 to 3 do 
begin 
X := 0; 

Y > 0; 

str(Counterl.s); 

SetColor(l); 

SetLineStyle(SolidLn,0,NormWidth); 

SetWriteMode(XorPut); 
if DosError = 0 then 
begin 

if Copy(ACName,4.1) » 1 ‘ then OldAC.Init(Concat(Copy(ACName,1,3),’_#’,s)) 

else OldAC.Init(Concat(Copy(ACName,1,4),’_#\s)); 

OldAC.Show(O.O); 
for X := MaxX downto 0 do 
for Y :» MaxY downto 0 do 
if GetPixel(X.Y) = 1 then 
begin 

PutPixel(X,Y,0); 

PutPixel{X*2+140, Y*2-10,1); 

PutPixel(X*2+141, Y*2-10,1); 

PutPixel(X*2+140,Y*2+1-10,1); 

PutPixel(X*2+141,Y‘2+1-10,1); 

end; 

OldAC.Kill; 

end; 

Ellipse(MaxX div 2 + Offset,MaxY div 2-10,0,360,MaxX div 2,MaxY div 2); 
repeat 

Line(X+Offset, Y,X+Offset, Y+1); 

Line(X+Offset,Y,X+Offset+1 ,Y); 

Ch := ReadKey; 
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while Ch = ‘h’ do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

Line(X+Offset, Y,X+Offset, Y+1); 

Line(X+Offset,Y,X+Offset+1 ,Y); 

Case Ch of 

chr(80), chr(50): if Y < MaxY then Y := Y + 2; 
chr(75), chr(52): if X > 0 then X > X - 2; 
chr(77), chr{54) : H X < MaxX then X X + 2; 
chr{72), chr(56): if Y > 0 then Y Y - 2; 
chr(32) :begin 

PutPixel(X+Offset,Y,abs(GetPixel(X+Offset,Y)-1)); 

PutPixel(X+Offset+1,Y,abs(GetPixel(X+Offset+1,Y)-1)); 

PutPixel(X+Offset,Y+1,abs(GetPixel(X+Offset+1,Y+1)-l)); 

PutPixel(X+Offset+1,Y+1,abs(GetPixel(X+Offset+1,Y+1)-1)); 

end; 

end; 

until Ch = #13; 

SetColor(O); 

Ellipse(MaxX div 2 + Offset,MaxY div 2-10,0,360,MaxX div 2,MaxY div 2); 
for X := 0 to MaxX div 2 do 

for Y := 0 to MaxY div 2 -10 do 

if GetPixel(X‘2+Offset,Y*2) = 1 then 
begin 

PutPixel(X,Y+5,1); 

PutPixel(X*2+Offset,Y*2,0); 

PutPixel(X*2+Offset+1 ,Y*2,0); 

PutPixel(X*2+Offset,Y*2+1,0); 

PutPixel(X*2+Offset+1 ,Y*2+1,0); 
end; 

retcode := pcxSetDisplay(pcxCGA_6); 
if Copy(ACName,4,1) = “ then 

retcode := pcxDisplayFile(Concat(Copy(ACName,1,3),’_#\s,’.pcx’),0,0,MaxX div 2,MaxY 

div 2.0) 

else retcode := pcxDisplayFile(Concat(Copy(ACName,1,4),’_#’,s,'.pcx'),0,0,MaxX div 2,MaxY 
div 2,0); 

{Input the data for this view} 
if Copy(ACName,4,1) = ‘ ‘ then 

Assign(F1 ,Concat(Copy(ACName,1,3),'_#',s,’.dat’)) 

else Assign(F1 ,Concat(Copy(ACName,1,4),'_#’,s,’.dat’)); 

ReWrite(FI); 

Writeln(F1 .ACName); 

Writeln(F1,”); 

Writeln(F1,”); 

SetColor{1); 

SetLineStyle(SolidLn,0,ThickWidth); 
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for Counter2 := 1 to 40 do 

Line(390,Counter2*3+65,590,Counter2*3+65); 
SetUpMenu. lnit(‘Wing1 .mnu'); 

Choice := SetUpMenu.GetChoice; 
if Choice <> ‘null’ then 
begin 

Writeln(F1 .Choice); 

Str(LastSelection, s); 
if LastSelection <10 then 
Writeln(F1 ,Concat(‘Wing10’,s)) 
else Writeln(Fl ,Concat(‘Wing1 ’,s)); 
end 
else 
begin 

Writeln(F1,”); 

Writeln(F1,”); 

end; 

SetUpMenu. lnit(‘Wing2.r nnu’); 

Choice := SetUpMenu.GetChoice; 
if Choico <> ‘null’ then 
begin 

Writeln(Fl .Choice); 

Str(LastSeledion.s); 
if LastSelection < 10 then 
Writeln(F1 ,Concat(‘Wing20’,s)) 
else Writeln(Fl ,Concat(‘Wing2’,s)); 
end 
else 
begin 

Writeln(Fl,”); 

Writeln(F1,”); 

end; 

SetUpMenu. lnit(‘Wing3.mnu’); 

Choice := SetUpMenu.GetChoice; 
if Choice <> ‘null’ then 
begin 

Writeln(F1 .Choice); 

Str( LastSelection, s); 
if LastSelection < 10 then 
Writeln(F1 ,Concat(‘Wing30',s)) 
else Writeln(F1 ,Concat('Wing3’,s)); 
end 
else 
begin 

Writeln(F1,”); 

Writeln(F1,”); 
end; 

SetUpMenu.lnit('Wing4.mnu’); 
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Choice > SetUpMenu.GetChoice; 
if Choice <> 'null' then 
begin 

Writeln(F1 .Choice); 
Str(LastSelection, s); 
if LastSelection <10 then 
Writeln(F1 ,Concat('Wing40',s)) 
else Writeln(F1,Concat(‘Wing4',s)); 
end 
else 
begin 

Writein(F1,”); 

Writeln(F1,”); 

end; 

SetUpMenu.lnit('Engi1 .mnu’); 

Choice := SetUpMenu.GetChoice; 
if Choice <> ‘null’ then 
begin 

Writeln(F1 .Choice); 
Str(LastSelection.s); 
if LastSelection < 10 then 
Writeln(F1 ,Concat('Engi10’,s)) 
else Writeln(F1 .Concat('Engil’.s)); 
end 
else 
begin 

Writeln(F1,”); 

Writeln(F1,”); 

end; 

SetUpMenu.lnit(‘Engi2.mnu’); 

Choice := SetUpMenu.GetChoice; 
if Choice <> ‘null’ then 
begin 

Writeln(F1 .Choice); 
Str(LastSelection.s); 
if LastSelection < 10 then 
Writeln(F1 ,Concat(‘Engi20',s)) 
else Writeln(F1 ,Concat(‘Engi2',s)); 
end 
else 
begin 

Writeln(F1,”); 

Writeln(F1,”); 

end; 

SetUpMenu.lnit('Fuse1 .mnu'); 

Choice := SetUpMenu.GetChoice; 
if Choice <> ‘null’ then 
begin 
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Writeln(FI .Choice); 
Str(LastSelection.s); 
if LastSelection < 10 then 

Writeln(F1 ,Concat(‘Fuse10’,s)) 
else Writeln(F1 ,Concat('Fuse1 ’,s)); 
end 
else 
begin 

Writeln(F1,”); 

Writeln(F1,"); 

end; 

SetUpMenu.lnit(‘Fuse2.mnu’); 

Choice := SetUpMenu.GetChoice; 
if Choice <> ‘null’ then 
begin 

Writeln(F1 .Choice); 
Str(LastSelection, s); 
if LastSelection < 10 then 
Writeln(F1 ,Concat('Fuse20'.s)) 
else Writeln(F1 ,Concat(‘Fuse2’,s)); 
end 
else 
begin 

Writeln(F1,”); 

Writeln(F1,”); 

end; 

SetUpMenu.lnit(‘Fuse3.mnu’); 

Choice := SetUpMenu.GetChoice; 
if Choice <> null’ then 
begin 

Writeln(F1 .Choice); 
Str(LastSelection.s); 
if LastSelection <10 then 

Writeln(F1 .Concat(‘Fuse30',s)) 
else Writeln(F1 ,Concat(‘Fuse3’,s)); 
end 
else 
begin 

Writeln(F1,”); 

Writeln(F1,”); 

end; 

SetUpMenu.lnit(‘Fuse4.mnu'); 

Choice := SetUpMenu.GetChoice; 
if Choice <> ‘null' then 
begin 

Writeln (FI, Choice); 

Str( LastSelection, s); 
if LastSelection < 10 then 
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WritelnfFI ,Concat(‘Fuse40’,s)) 
else Writeln(F1 ,Concat(‘Fuse4’,s)); 
end 
else 
begin 

Writeln(F1,”); 

Writeln(F1,”); 

end; 

SetUpMenu.lnit(Tail1 .mnu'); 

Choice := SetUpMenu.GetChoice; 
if Choice <> ‘null’ then 
begin 

Writeln(F1 .Choice); 
Str(LastSelection.s); 
if LastSelection <10 then 
Writeln(F1 ,Concat('Tail10',s)) 
else Writeln(F1 ,Concat(‘Tail1 ’,s)); 
end 
else 
begin 

Writeln(F1,”); 

Writeln(F1,”); 

end; 

SetUpMenu.lnit(‘Tail2.mnu’); 

Choice := SetUpMenu.GetChoice; 
if Choice <> ‘null’ then 
begin 

Writeln (FI .Choice); 
Str(LastSelection, s); 
if LastSelection < 10 then 
Writeln(F1 ,Concat(‘Tail20’,s)) 
else Writeln(F1 ,Concat('Tail2’,s)); 
end 
else 
begin 

Writeln(F1,"); 

Writeln(F1, ”); 


end; 

SetUpMenu.lnit(’Tail3.mnu’); 

Choice := SetUpMenu.GetChoice; 
if Choice <> null’ then 
begin 

Writeln(F1,Choice); 
Str(LastSelection.s); 
if LastSelection < 10 then 
Writeln(F1 ,Concat('Tail30',s)) 
else Writeln(F1 ,Concat(‘Tail3'.s)); 
end 
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else 

begin 

Writeln(F1,”); 

Writeln(F1,”); 

end; 

SetUpMenu. lnit(‘T aiW.mnu'); 

Choice :* SetUpMenu.GetChoice; 
if Choice <> 'null' then 
begin 

Writeln(F1 .Choice); 

Str(LastSelection.s); 

if LastSelection < 10 then 
Writeln(F1 ,Concat('Tail40',s)) 

else Writeln(F1 ,Concat('Tail4',s)); 
end 
else 
begin 

Writeln(F1,"); 

Writeln(F1,"); 

end; 

SetUpMenu. lnit(‘T ail5.mnu'); 

Choice := SetUpMenu.GetChoice; 
if Choice <> 'null' then 
begin 

Writeln(F1 .Choice); 

Str(LastSelection.s); 

if LastSelection <10 then 
Writeln(F1 ,Concat(‘Tail50’.s)) 

else Writeln(F1 ,Concat(‘Tail5’,s)); 
end 
else 
begin 

Writeln(F1,”); 

Writeln(F1."); 

end; 

Close(FI); 

ClearDevice; 

end; 


procedure Report; 
begin 

StudentModel.Mode := 'StuRep'; 
GetStudents; 

DialogScreen. Init('StuRep.dlg'); 
DialogScreen.Show(O.O); 
StudentMenu.lnit('Student.rec’); 
Choice := StudentMenu.GetChoice; 
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while Choice <> ‘null’ do 
begin 

StudentReport. Init(’StuRep.scr’); 

StudentReport.Show(O.O); 

Assign(F,Concat(Choice,’.mdr)); 

Reset(F); 

SetColor(l); 

SetT extJustify (LeftText, LeftT ext); 

OutTextXY(325,74,Choice); 
for Counter > 1 to 4 do 
begin 

Readln(F,TextString); 

if Textstring = ‘0’ then OutTextXY(325,Counter* 12+74,'Not Tested’) 
else OutTextXY(325,Counter*12+74 1 TextString); 
end; 

SetColor(O); 

Close(F); 

Ch := ReadKey; 
while Ch = ’h' do 
begin 
GetHelp; 

Ch := ReadKey; 
end; 

ClearDevice; 

DialogScreen. Hide; 

StudentReport. Kill; 

DialogScreen.Show(O.O); 

GetStudents; 

StudentMenu. Init(’Student.rec’); 

Choice := StudentMenu.GetChoice; 
end; 

DialogScreen.Hide; 

DialogScreen. Kill; 
end; 

procedure DelStudent; 
begin 

StudentModel.Mode := 'DelStu'; 

GetStudents; 

DialogScreen. Init(’StuDel.dlg’); 

DialogScreen. Show(0,0); 

StudentMenu. lnit(‘Student. rec'); 

Choice :-= StudentMenu.GetChoice; 
while Choice <> ’null’ do 
begin 

Exec(‘\COMMAND.COM’,Concat(7C delChoice,’.mdi’)); 

GetStudents; 

StudentMenu. Init('Student.rec'); 
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Choice ;« StudentMenu.GetChoice; 
end; 

DialogScreen. Hide; 

DialogScreen. Kill; 
end; 

procedure Setup; 
const 

ALPHA = [‘0 , .. , 9',’A’..’Z , , , a’..’z , ,’- , J; 
var 

Password: name; 

Counterl : integer; 
begin 

Password :* *’; 

Counterl := 1; 

SetColor(l); 

DialogScreen. lnit(‘Passwd.dlg'); 

DialogScreen. Show(220,25); 

Line(220,64,420,64); 

Line(220,67,420,67); 

Line(220,70,420,70); 

Ch := #8; 

while (Ch <> #13) and (Counterl < 21) do 
begin 

Ch := ReadKey; 
if Ch = chr(32) then 
begin 

Password := Concat(Password,chr(32)); 
Counterl :■ Counterl + 1; 
end; 

if Ch in ALPHA then 
begin 

SetColor(O); 

OutTextXY(225+10*Counter1,68,Ch); 

Password := Concat(Password,Ch); 

Counterl := Counterl + 1; 

SetColor(l); 

end; 

if (Ch = #8) and (Counterl > 1) then 
begin 

SetColor(l); 

Line(210+10*Counter1,64,220+10*Counter1,64); 
Line(210+10*Counter1,67,220+10*Counter1,67); 
Line(210+10‘Counterl, 70,220+10* Counterl ,70); 
Counterl := Counterl -1; 

Password Copy (Passwords, Counterl-1); 
SetColor(O); 
end; 
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end; 

DialogScreen.Hide; 

DialogScreen.Kill; 
if Password <> '101653362' then 
Exit; 

StudentModel.Mode := 'Setup'; 

SetUpMenu.lnit('SetUp.mnu'); 

Choice :* SetUpMenu.GetChoice; 
while (Choice <> 'EXIT') and (Choice <> ‘null’) do 
begin 

if Choice = ‘SELECT AIRCRAFT’ then SelectAC 
else if Choice * 'ADD/MODIFY AIRCRAFT’ then AddAC 
else if Choice = ‘STUDENT REPORT’ then Report 
else if Choice = 'DELETE STUDENT’ then DelStudent; 
GotoXY(l.l); 

StudentModel.Mode > 'Setup'; 
SetUpMenu.lnit('SetUp.mnu'); 

Choice := SetUpMenu.GetChoice; 
end; 

end; 

end. 
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program Install; 

uses DOS, CRT, GRAPH; 

var 

Ch . char; 
grDriver: integer; 
grMode : integer; 

ErrCode : integer; 

Dirlnfo : SearchRec; 
begin 

ChDir('A:\’); 
grDriver > CGA; 
grMode > CGAHi; 
lnitGraph(grDriver,grMode,”); 

ErrCode := GraphResult; 
if ErrCode <> 0 then 
begin 

writeln(‘This program requires CGA graphics.’); 
writelnC Install ABORTED.’); 
writelnf’ Press any key to return to DOS.’); 

Ch := ReadKey; 

Exit; 

end; 

SetTextJustify(CenterText.CenterText); 

ClearDevice; 

FindFirst(‘A:COPYRITE.90’,AnyFile,Dirlnfo); 
if DOSError <> 0 then 
begin 

Sound(440); 

Delay (100); 

NoSound; 

ClearDevice; 

OutTextXY(320,100,’The Aircraft Recognition Tutor is COPY PROTECTED.’); 
OutTextXY(320,110,’Please see the User”s Manual for details.’); 
OutTextXY(320,120,’Press any key to return to DOS.’); 

Ch :«= ReadKey; 

ClearDevice; 

CloseGraph; 

Exit; 

end; 

ClearDevice; 

OutTextXY(320,100,’Welcome to the Aircraft Recognition Tutor Install Program’); 
OutTextXY(320,110,’Press any key to begin’); 

Ch ReadKey; 
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ClearDevice; 

OutTextXY(320,100,'Creating a new directory called " ARTUTOR”.’); 
ChDir(‘C:V); 

MkDir(‘ARTUTOR'); 
if lOResult <> 0 then 
begin 

OutTextXY(320,110,’Cannot create directory. Install ABORTED.'); 
OutTextXY(320,120,'Press any key to return to DOS.'); 

Ch ReadKey; 

ClearDevice; 

CloseGraph; 

Exit; 

end; 

ChDir('ARTUTOR’); 

ClearDevice; 

FindFirst(‘A:Disk. 1', AnyFile, Dirlnfo); 
while DOSError <> 0 do 
begin 

Sound(440); 

Delay (100); 

NoSound; 

ClearDevice; 

OutTextXY(320,100,'Insure that Disk 1 is in Drive A: and press any key.'); 
Ch := ReadKey; 

FindFirst(‘A:Disk.1’,AnyFile,Dirlnfo); 
end; 

ClearDevice; 

OutTextXY(320,100,'Copying files from Disk 1'); 

Exec('\COMMAND.COM',’/C copy A:*.*’); 

Exec(‘\COMMAND.COM’,7C copy A:\WEFT\*.*’): 

Exec(‘\COMMAND.COM',’/C copy A:\DIALOGW); 
Exec(‘\COMMAND.COM',7C copy A:\MENUV.*’); 

Exec(‘\COMMAND.COM’,7C del A:COPYRITE.90’); 

ClearDevice; 

OutTextXY(320,100,'Insert Disk 2 in Drive A: and press any key.'); 

Ch := ReadKey; 

FindFirst('A:Disk.2',AnyFile,Dirlnfo); 
while DOSError <> 0 do 
begin 

Sound(440); 

Delay(IOO); 

NoSound; 

ClearDevice; 

OutTextXY(320,100,'Insure that Disk 2 is in Drive A: and press any key.'); 
Ch > ReadKey; 
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FindFirst(’A:Disk.2’ t AnyFil©,Dirlnfo); 

end; 

ClearDevice; 

OutTextXY(320,100,'Copying files from Disk 2’); 

ExecC\COMMAND.COM',7C copy A:*.*’); 

ClearDevice; 

OutTextXY(320,100,’Insert Disk 3 in Drive A: and press any key.’); 

Ch:« ReadKey; 

RndFirst(‘A:Disk.3',AnyFile,Dirlnfo); 
while DOSError <> 0 do 
begin 

Sound(440); 

Delay(IOO); 

NoSound; 

ClearDevice; 

OutTextXY(320,100,'Insure that Disk 3 is in Drive A: and press any key.’); 
Ch ReadKey; 

RndFirst(‘A:Disk.3’, Any File .Dirlnfo); 
end; 

ClearDevice; 

OutTextXY(320,100,'Copying files from Disk 3'); 

Exec(‘\COMMAND.COM’,7C copy A:*.*’); 

Exec(‘\COMMAND.COM’,7C copy A:\AC1\*.*’); 

Exec(’\COMMAND.COM’,7C copy A:\AC2W*’); 

ClearDevice; 

OutTextXY(320,100,'Insert Disk 4 in Drive A: and press any key.’); 

Ch ReadKey; 

RndFirst('A:Disk.4’,AnyRle,Dirlnfo); 
while DOSError <> 0 do 
begin 

Sound(440); 

Delay(IOO); 

NoSound; 

ClearDevice; 

OutTextXY(320,100,'Insure that Disk 4 is in Drive A: and press any key.’); 
Ch :=» ReadKey; 

FindFirst(‘A:Disk.4',AnyFile,Dirlnfo); 
end; 

ClearDevice; 

OutTextXY(320,100,'Copying files from Disk 4’); 

ExecC\COMMAND.COM',7C copy A:\AC3W*’); 

Exec(‘\COMMAND.COM’,’/C copy A:\AC4V.*’); 

Exec(ACOMMAND.COM','/C del install.exe'); 

Exec(‘\COMMAND.COM’,'/C del unstall.exe’); 

ExecC\COMMAND.COM’,7C del disk.*'); 
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ClearDevice; 

OutTextXY(320,100,'Install program complete.’); 
OurTextXY(320,110,'Press any key to return to DOS’); 
Ch > ReadKey; 

ClearDevice; 

CloseGraph; 

end. 
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program Unstall; 
uses DOS, CRT; 
var 

Ch : char; 

Dirlnfo : SearchRec; 
begin 
ClrScr; 

Writeln(‘Unlnstalling the Aircraft Recognition Tutor.’); 

Writelnj'Please Wait.'); 

Exec(‘\COMMAND.COM’, '1C copy C:\ARTUTOR\COPYRITE.90 A:’); 

ChDir('C.V); 

Exec(‘\COMMAND.COM',yC del C:\ARTUTOR\COPYRITE.90'); 
Exec(‘\COMMAND.COM',7C del C:\ARTUTOR\*.bgi’); 
Exec('\COMMAND.COM’,7C del C:\ARTUTORWscr’); 
Exec(‘\COMMAND.COM',7C del C;\ARTUTOR\*.pic'); 
Exec(‘\COMMAND.COM',7C del C:\ARTUTOR\*.dlg’); 
Exec(‘\COMMAND.COM',7C del C:\ARTUTOR\*.nam'); 
Exec(‘\COMMAND.COM’,’/C del C:\ARTUTOR\*.mnu’); 
Exec(‘\COMMAND.COM\7C del C:\ARTUTOR\*.def’); 

Exec(‘\COMM AND .COM’.’/C del C:\ARTUTORWdat’); 
Exec(‘\COMMAND.COM’,7C del C:\ARTUTORWexe’); 
Exec(‘\COMMAND.COM’,7C del C:\ARTUTOR\*.hlp’); 
Exec(‘\COMMAND.COM’,7C del C:\ARTUTORWec’); 
Exec(‘\COMMAND.COM’,7C del C:\ARTUTOR\*.def); 
Exec(‘\COMMAND.COM’,7C del C:\ARTUTORWmdl’); 

RmDir(ARTUTOR); 

ClrScr; 

Writeln(‘Unstall Completed. You may now Install the Aircraft Recognition Tutor 1 ); 
Writeln(‘on another computer.’); 

Writeln(‘Press any key to return to DOS’); 

Ch := ReadKey; 

ClrScr; 

end. 
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1 Introduction 

1.1 About the Tutor 

The Aircraft Recognition Tutor was developed as 
part of a Masters Thesis in Computer Science by 
CPT Larry W. Campbell. One of the major goals 
of the diesis was to demonstrate that, using exist¬ 
ing technology in Computer Science and Artifi¬ 
cial Intelligence, a useful computer training tool 
could be developed quickly and inexpensively, 
hi addition, this training tool would run on exist¬ 
ing hardware in the field (U.S. Army ADA Bat¬ 
talions). 

Part of this goal has definately been met. The 
Aircraft Recognition Tutor was developed over a 
period of 3 months by a single individual. 
Whether the tutor is useful will be determined by 
you, the user. 

The requirement that the tutor run on existing 
hardware imposed some serious constraints on 
the development of the program. U.S. Army 
ADA Battalions currently have Zenith Z-248 
computers with 640K RAM, 20MB Hard Disk, 
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360K 5-1/4" Floppy Disk, and CGA graphics. 
Because the computers use CGA graphics, the 
graphics resolution of the tutor was limited to 
either 320 x 200 pixels with 4 colors or 640 x 
200 with 2 colors. Both are inadequate in my 
opinion, however, until the computer systems are 
upgraded to EGA (640 x 350, 16 color), VGA 
(640 x 480, 16 color), or Super VGA (800 x 600, 
16 color), they will have to do. After experi¬ 
menting with both of the available graphics 
modes, the 640 x 200 mode was chosen as the 
best comprimise. If the tutor is accepted and 
used by the field, future versions will become 
available for liigher resolution graphics modes 
which will allow the aircraft used by the system 
to be of almost photographic quality. 

The topic for the tutor was chosen based on the 
past experience of the author. Aircraft Recogni¬ 
tion remains a crucial skill needed by all SHO- 
RAD (Short Range Air Defense) soldiers. Un¬ 
fortunately, this skill is difficult to acquire and is 
quite perishable. In spite of continuous training 
by units, soldiers continue to have difficulty 
developing and maintaining proficiency at visu- 
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ally identifying aircraft. Numerous training aids 
exist to help units train soldiers, however, they 
need a qualified instructor in order to be effec¬ 
tive. These instructors are not always available, 
and the varying degrees of proficiency make 
group training less than ideal. The Aircraft 
Recognition Tutor attempts to fill a gap that 
exists in most VACR (Visual Aircraft Recogni¬ 
tion) training programs. The tutor uses the 
WEFT (Wings, Engine, Fuselage, Tail) theory to 
teach aircraft recognition. Because the tutor is 
designed to identify the soldiers’s current ability 
and teach at a level appropriate to that ability, it 
is useful for introducing VACR to new soldiers 
as well as providing refresher training to more 
advanced soldiers. 

hi order to make the program simple and inter¬ 
esting to use, the interface was kept very basic. 

In addition, a game mode was incorporated in 
order to encourage use of the program. The best 
training tools are of no value if they are not used. 

Comments on the design of the tutor system, as 
well as any suggestions, are solicited. A sugges- 
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tion form is included as Appendix C. This form 
can also be used to report any bugs found in the 
system. 

1.2 WEFT Theory 

The WEFT (Wings, Engine, Fuselage, Tail) 
theory is currently believed to be the best 
method for teaching VACR (Visual Aircraft 
Recognition). This theory is described in detail 
in FM 44-30, dated October 1986. The Aircraft 
Recognition Tutor uses WEFT theory as the 
basis from which to teach VACR. 

According to FM 44-30, all aircraft are com¬ 
posed of the same basic elements: wings to 
provide lift, an engine to provide motive power, 
a fuselage to carry the payload and controls, and 
a tail assembly which usually serves the purpose 
of controlling the direction of flight. These 
elements differ in their shape, size, number, and 
position. It is these basic elements that distin- 
quish one aircraft type from another. Detailed 
parts cannot be used as the only aid to aircraft 
recognition, mainly because of the distances at 
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which recognition should occur. The individual 
components can be isolated for descriptions and 
studied as separate recognition features. It is the 
composite of these features that must be learned 
in order to recognize and identify an aircraft. 

For a detailed discussion of WEFT theory, and 
the method used for describing the basic ele¬ 
ments, see FM 44-30 Chapter 3. 
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2 Installing the Tutor 

2.1 System Requirements 

The Aircraft Recognition Tutor requires a PC 
compatible computer with the following fea¬ 
tures: 

DOS 2.1 (or higher) 

512K RAM 

Hard Disk (system uses 1MB) 

360K 5-1/4" Floppy Disk 
CGA Graphics Adapter (or higher) 

2.2 Running the Install 
Program 

To install the Aircraft Recognition Tutor on your 
system: 

1. Turn on your PC. 

2. Type C: and press Enter. 

3. Insert DISK 1 in drive A: 

4. Type A:INSTALL and press Enter. 

5. Follow the instructions on your screen. 

The Aircraft Recognition Tutor is copy pro¬ 
tected. It may only be installed on a single 
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system. To move the program from one system 
to another repeat the install sequence on page 9, 
however for step 4, do the following: 

4. Type A:UNSTALL and press Enter. 

The Install and Unstall programs require that the 
disks NOT have write protect tabs on them. If 
you receive a "Write Protect Error" while using 
one of these programs, remove the write protect 
tab, reinsert the disk, and press "R" to retry. 

To start the tutor once it has been installed, make 
sure that you are in the C:\ARTUTOR directory 
and type ART and press Enter. 
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3 Using the Tutor 

3.1 General Information 

The Aircraft Recogniton Tutor has a simple user 
interface. Few keys are required to use the 
system. Normally, when a screen is displayed to 
the user, the system will wait for the user to 
press any key before continuing. When a menu 
appears, the system will wait for the user to 
select a menu item and press Enter. 

The following keys have a special meaning in 
the Aircraft Recognition Tutor: 

Esc Quit what you are doing. This 

normally brings you to a Menu one 
level higher than where you were. 

H Provides context sensitive help. 

A In the game mode, this is player 1 ’s 
button. 

L In the game mode, this is player 2’s 
button. 

Enter When no menu exists, this causes 
the program to continue after it has 
paused. When a menu exists, this 
selects the highlighted item. 
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■J* Iii a menu, this highlights the 
item above the one currently 
highlighted. 

| In a menu, this highlights the item 
’ below the one currently highlighted. 
PgUp hi a menu, this causes the previous 
10 selections to be displayed in the 
menu. 

PgDn In a menu, this causes the next 10 
selections to be displayed in the 
menu. 

In the expert level, scrolls through 
the WEFT features in reverse order. 
+ in the expert level, scrolls through 
die WEFT features in forward order. 
C When a Tutor session is completed, 
this continues with the next session. 

In the Setup/Utility Mode, some of these keys 
have different meanings. See Chapter 5 for 
details. 

3.2 Being Diagnosed 

When a new student is encountered by the Air¬ 
craft Recognition Tutor (based on die User ID), 
the system first asks for the student’s name, and 


12 / Aircraft Recognition Tutor 


126 







then attempts to diagnose the student’s level of 
proficiency at visual aircraft recognition. 

The student is presented with 10 aircraft, one at a 
time, that are examples of specific WEFT fea¬ 
tures. The student is also given a menu that 
corresponds to the WEFT feature that the aircraft 
is exemplifying. The student is expected to 
identify the WEFT feature that corresponds to 
the menu title and is visible on the aircraft, and 
then select it using the menu. 

If the student incorrectly responds to 2 or more 
of the 10, they will begin the tutor at the Novice 
level. If they miss 1 or less, they will begin at 
the Intermediate Level. Students are not allowed 
to begin at the Expert Level. 

3.3 The Three Levels 

The Aircraft Recognition Tutor allows students 
to be in one of three levels: Novice, Intermedi¬ 
ate, and Expert. 

The Novice Level is for students that are new to 
VACR and have not mastered WEFT theory. 

The Intermediate Level is designed for students 
that have a solid background in recognizing 
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WEFT features. In this level, students learn to 
identify specific aircraft visually based on their 
WEFT components. 

In the Expert Level, students must identify air¬ 
craft based solely on a WEFT description of the 
lircraft. No visual image of the aircraft is pro¬ 
vided. This level provides a real challenge to 
even the best VACR students. 

3.4 The Teach Mode 

The Teach Mode is available in the Novice and 
Intermediate Levels. In the Novice Level, stu¬ 
dents are taught WEFT features. Intermediate 
Level students are taught WEFT features visible 
on specific aircraft. 

The Aircraft Recognition Tutor displays an 
aircraft in the left window of the binoculars. 
Along with that aircraft is a description of a 
WEFT feature of the aircraft. The student 
should study the feature, and press Enter when 
done. 

In the Novice Level, a new aircraft/WEFT fea¬ 
ture will be shown, until the tutor has shown all 
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of the WEFT features. 

In the Intermediate Level, a single aircraft is 
shown, and the tutor displays all of the WEFT 
features of that aircraft before continuing with 
another aircraft. This is repeated until all of the 
aircraft that have been selected for the system to 
teach have been shown. 

3.5 The Review Mode 

The Review Mode randomly but completely 
presents each WEFT feature (Novice Level) or 
each aircraft (Intermediate and Expert Levels), 
asks the student to identify the WEFT feature or 
aircraft, and takes action based on the student’s 
response. 

During a review, three possible conditions can 
exist when a student attempts to identify a 
WEFT feature or aircraft: 

(1) the student may respond correctl). 

(2) the student may respond with an 
anticipated but incorrect answer. 

(3) the student may respond with an 
unanticipated, incorrect answer. 
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Each of these conditions is handled differently 
by the tutor system. 

In case (1), the tutor system will recognize the 
student for the correct answer, and present an¬ 
other aircraft to the student. 

In case (2), the student is presented with both the 
aircraft being reviewed and the aircraft that the 
student selected from the menu. Both are identi¬ 
fied to the student, and the system performs a 
comparison of the two for the student so that the 
differences are reinforced in the student’s mind. 
The student will be required to demonstrate iden¬ 
tification of the missed aircraft again some time 
later in the session. The tutor then continues 
with another aircraft. 

In case (3), the aircraft is identified to the stu¬ 
dent, and the student is asked to identify specific 
features of the aircraft. The tutor session then 
continues as in (1) and (2). The student may 
have to identify a missed aircraft several times 
before the system is satisfied of the student’s 
knowledge of that item. 
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3. 6 The Test Mode 

The Test Mode is available in the Intermediate 
and Expert Levels. Testing consists of present¬ 
ing the student with each aircraft, asking the 
student to identify the aircraft, and maintaining a 
record of the student’s performance. 

A student must perform satisfactorily on the test 
in order to advance to the next level. In addition, 
poor performance may cause the student to 
revert to a lower level or mode. 

A student at the Expert Level that receives a 
score of 100% will be deleted from the system 
and added to the Hall of Fame. 
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4 Playing the Game 

4.1 One Player 

The One-Player Game pits a student against the 
tutor system in a race to identify aircraft. The 
system opponent is based on an image recogni¬ 
tion program diat uses WEFr features to identify 
the aircraft. No unfair knowledge of the aircraft 
is available to the system opponent. 

The player does not have to be enrolled in the 
tutor system in order to play the game, and per¬ 
formance in the game is not maintained in the 
student database. 

The game is played as follows: An aircraft 
appears in the binoculars, and when the player 
recognizes the aircraft they press their “button”. 
The "button" for the One-Player game is the ‘A’ 
key on the keyboard. The player is then given a 
chance to identify the aircraft in a menu that will 
appear. A limited amount of time is allowed for 
the player to recognize the aircraft. Also, the 
system opponent may recognize the aircraft first, 
and will be allowed to identify it. 
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A total of 25 aircraft comprise the game. Points 
are awarded for a correct response, and deducted 
for an incorrect response. After all 25 aircraft 
have been shown, the player with the highest 
score is the winner. 

4.2 Two Players 

The Two-Player game is played just like the 
One-Player game, but no system opponent ex¬ 
ists. Instead, two players compete against each 
other. The “button” for Player 1 is the same as 
in the One-Player game, and the “button” for 
Player 2 is the ‘L’ key. 

Again, the players need not be enrolled in the 
tutor system in order to play the game. 
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5 Using the Utilities 

5.1 Password Protection 

The Setup/Utility Mode of the Aircraft Recogni¬ 
tion Tutor is intended to be used by the System 
Administrator (S-3). Because of this, access to 
this mode is provided only with a password. The 
password is included in this manual in an enve¬ 
lope attached to the back cover. If this password 
is lost, a new one can be requested by using the 
Suggestion Form located in Appendix C. 

When the Setup/Utility Mode is selected from 
the Main Menu, the user is asked to enter their 
password. Once the password in entered cor¬ 
rectly, the Setup/Utility Menu is presented. If 
the password is entered incorrectly, the system 
returns to the Main Menu. 

5.2 Choosing the Aircraft 

The Select Aircraft Utility allows the System 
Administrator to select the aircraft that will be 
taught by the system. Initially, this includes all 
of the aircraft listed Appendix A of this manual. 
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To modify this list, use the menu to select the 
aircraft that you want to include in the system. 
This aircraft will be added to the list and you 
will be presented with an updated menu of air¬ 
craft. Continue the selection process until all of 
the aircraft that you want to be taught by the 
system have been selected. Press ‘Esc’ when 
you are finished. 

Caution: Once you start this utility, the list of 
aircraft used by the system is erased. You must 
select ALL of the aircraft that you want included 
in the system. 

5.3 Adding or Modifying 
Aircraft 

Adding or modifying aircraft is a complex proce¬ 
dure. Once you begin defining an aircraft, you 
must complete all of the steps listed below. An 
aircraft definition consists of tliree views: front, 
side, and bottom. 

To add or modify an aircraft: 

1. Select “Add/Modify Aircraft” from the 
Setup/Utility Menu. 
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2. When prompted, type in the nomencla¬ 
ture and name of die aircraft as you 
want it to appear (or as it already ap¬ 
pears, if you want to modify the aircraft 
definition) in die Aircraft Menu. This 
name will appear for a brief moment in 
the lower left portion of the screen. 

3. If the aircraft ihat you named already 
exists, it will be drawn on the screen in 
die upper left corner, and then translated 
(2 times larger) on die right side of die 
screen. 

4. Position the cursor inside the circular 
area, using the arrow keys. This circle 
corresponds to die binocular window. 

5. Draw widiin the circle by pressing the 
space bar when the cursor is positioned 
where you want to draw. You can erase 
in the same manner. 

6. When you are finished drawing the air¬ 
craft, press 'Enter'. 

7. The aircraft will then be reduced and 
drawn in the upper left comer of the 
screen. 

8. A menu will appear. This menu will 
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contain selections for a particular WEFT 
feature. Highlight the appropriate fea¬ 
ture visible in this view of the aircraft 
and press 'Enter'. If the WEFT feature is 
not visible in this view of the aircraft, 
press 'Esc'. 

9. Repeat step 8 for each of the WEFT fea¬ 
ture menus. 

10. Repeat steps 3-8 for the other two views 
of the aircraft. 

The aircraft that you defined is not automatically 
added to the list of aircraft taught by the system. 
To include new aircraft, choose the "Select Air¬ 
craft" option from the Setup/Utility Menu. 

If you make an error in defining an aircraft, 
simply modify the definition using the same 
method described above. 

Aircraft are identified by the tutor system based 
on the first four characters in the name. To 
define a new aircraft with a similar name as an 
existing one, insure that the first four characters 
of the name you enter in step 2 are unique. 
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5.4 Getting a Student 
Report 

Reports are available for each student that uses 
the tutor system. To get a report on a student: 

1. Select “Student Report” from the Setup/ 
Utility Menu. 

2. Select the student that you want a report 
on based on their User ID from the 
menu shown. 

3. Repeat for other students as desired. 
Press ‘Esc’ when you are finished with 
this utility. 

The Student Report provides the following infor¬ 
mation about a student: 

1. The Student’s User ID. 

2. The Student’s Name. 

3. The current Mode the student is in. 

4. The current Level the student is at. 

5. The last test score the student received. 

5.5 Deleting a Student 

Students may be deleted from the tutor system as 
necessary. This is useful when a student PCS’s 
and no longer needs to be maintained in the 
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student database. To delete a student: 

1. Select “Delete Student” from the Setup/ 
Utility Menu. 

2. Select the student to be deleted based on 
their User ID from the menu shown. 

3. The student will be deleted and an 
updated menu will be shown. Repeat 
step 2 to delete additional students. 

4. Press ‘Esc’ when you are finished with 
this utility. 

When a student receives a test score of 100% in 
the Test/Expert Mode of the tutor, they are auto¬ 
matically deleted from the student database and 
added to the Hall of Fame. 
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6 Getting Help! 

6.1 General Help 

General Help for the Aircraft Recognition Tutor 
is available from the Main Menu by selecting 
“Get Help!”. This menu selection causes the 
General Help Menu to appear. Help is available 
from this menu on the following topics: 

1. About Help! - Information about the 
Help available in the tutor system. 

2. Tutor Help! - An overview of the tutor 
system. 

3. Game Help! - An overview of the 1 or 2 
Player Game. 

4. Setup/Utility Help! - A description of 
the various utilities available in the 
system. 

6.2 Context Sensitive 
Help 

Context Sensitive Help is available from almost 
anywhere in the system by pressing ‘H’ at any 
time. Context Sensitive Help provides detailed 
information about the current Mode/Level that 
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the user was in at the time of the Help request. 

If pressing the ‘H’ key does not bring up a Help 
screen, insure that the CAPS LOCK key is up 
and try again. 
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List of Aircraft in the 
System 


Appendix A 


The following aircraft are 
craft Recognition Tutor: 


A-4 Skyhawk 

A-6 Intruder 

A-7 Corsair II 

A-1OA Thunderbolt II 

Alpha Jet 

AM-X 

AV-8 Harrier 

Buccaneer 

Draken 

F-4 Phantom 

F-5 Freedom Fighter 

F-14 Tomcat 

F-15 Eagle 

F-16 Fighting Falcon 

F/A-18 Hornet 

F-20 Tigershark 

F-86 Sabrejet 


included in the Air- 


F-100 Super Sabre 

F-104 Starfighter 

F-lll 

Fantan A 

G.91Y 

Galeb 

Hawk 

Hunter 

Jaguar 

Lightning 

MiG-17 Fresco 

MiG-19 Farmer 

MiG-21 Fishbed 

MiG-25 Foxbat 

MiG-27 Flogger D 

MiG-29 Fulcrum 

Mirage 1H/5 
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Mirage FI 
Su-7B Fitter A 
Su-17,20,22 Fitter 
Su-24 Fencer 
Su-25 Frogfoot 
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Super Etendard 
Tornado 
Viggen AJ-37 
Yak-28 Brewer 
Yak-36 Forger 
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Appendix C 

Suggestion Form 

Maii to: CTI'LanyW. Campbell EMail at Cwt^bal^NFS C5.NAVY MIL 

SMC 2269 

Naval Poctgraduatc School 
Moftteiey.CA 93940 
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Index 


A key 

11 
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11 

ADA 

4 

L key 

11 

Add 

21 

Level 

13,14,15,17,24,26 

Aircraft 

4,5,6.7,9,11, 

Main 

20,26 


12,13,21,28 

Menu 

13,20,21,26 

Artificial Intelligence 4 

Mode 

12,15,17,24,25,26 

Binoculars 

14,18,21 

Modify 

21 

Bugs 

7,32 

Novice 

13,14,15 

Button 

18,19 

Password 

20 

C key 

12 

PgDn key 

12 

Caps Lock 

27 

PgUp key 

12 

CGA 

5,9 

Report 

24 

Comments 

32 

Requirements 9 

Computer 

9 

Review 

15 

Computer Science 

4 

Select 

20,23 

Context Sensitive 

26 

Setup 

12.20,21,23,24.25,26 

Copy Protection 

9 

SHORAD 

5 

Database 

18,25 

Student 

18,24.25 

Delete 

25 

Suggestions 20,32 

Diagnose 

12 

System Administrator 20 

EGA 

5 

System Opponent 18,19 

EMail 

32 

Teach 

14 

Enter key 

11.14,21 

Test 

17,24,25 

Esc key 11,21.23,23,24,25 

Thesis 

4 

Expert 13.14.15.17,25 

Tutor 

4.6,7,9.11.12.13.26 

FM 44-30 

7,8 

Unstall 


Game 

6,18,19,26 

User ID 

12,24,25 

H key 

11,26,27 

Utility 

12,20,21,23,24,25,26 

Hall of Fame 

17,25 

VACR 

6,7.13.14 

Help 

26,27 

VGA 

5 

Install 

9 

WEFT 

6,7,8,13.14.15.18,23 

Interlace 

Intermediate 

11 

13,14,15,17 

Zenith 
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APPENDIX C - AIRCRAFT IMAGES 
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